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1.0 INTRODUCTION 



The FPP Assembler, designed for the PDP-12 Floating Point Processor, 
translates PDP-8 and floating point mnemonic operation codes in a 
source program into binary codes in two passes, the first to assign 
numeric values to symbols and place them in the symbol table, and 
the second to generate the binary coding and program listing. Using 
the FPP-12 hardware, an entire set of floating point instructions can 
be implemented for quicker calculations and expanded capabilities. 
Numeric values can be calculated as 2 word integers, 2 word double 
precision fractions, or 3 word floating point values. Assembler 
fundamentals are discussed only briefly in this document. Refer to 
the FPP User's Guide, DEC-12-GQZA-D, for detailed information on the 
floating point processor and its instruction set; refer to the LAP 6- 
DIAL Programmer's Reference Manual, DEC-12-SE2D-D, for more informa- 
tion on assemblers. 

2.0 HARDWARE REQUIREMENTS 

The minimum hardware configuration is: 

PDP-12/20 with 8K of core memory 

RK8, DF32 (two are needed) and RS08 disks are among the 
supported options , 

An FPP-12 is strongly recommended. 

3.0 STATEMENT SYNTAX 

A source program is a sequence of coding statements generally entered 
via the Teletype"*" in the general format: 

tag, instruction expression/comment 

A physical line of coding may be up to 95 characters long and is termi- 
nated by a carriage return; however, on the program listing, lines will 
be truncated. A semicolon can be used in a line of code (except in 
the comment field) to terminate a logical statement, thus permitting 
several statements to be typed on a single Teletype line. However, a 
set of logical statements separated by semicolons must not exceed 
the 95 character limit. 

"'"Teletype is a registered trademark of Teletype Corporation. 
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A space is required in a statement: 

1. after an instruction mnemonic 

2. after an indirect I 

3. before a slash (/) used to indicate a comment 

4. as an OR operator. 

Multiple spaces or tabs are equivalent to a single space. These 
characters are optional after a comma in a tag and before a statement. 

3.1 Tags 

A statement tag is indicated by preceding the statement to be labeled 
with a user-defined symbol followed by a comma. (Refer to Section 
3.2). This format assigns the current value of the location counter 
to the tag. A mnemonic op code or defined pseudo-op cannot be a state 
ment tag. 

3.2 Expressions 

The FPP Assembler interprets three expression formats: 

1. Integer (used as addresses only) 

2. Double precision (floating point with no exponent) 

3. Floating point. 

An expression can contain: 

1. A user-defined, symbol (equate statement or tag) 

2. A period (.) to indicate the current location 

3. PDP-8 operator and IOT instructions 

4. An expression and a symbol or number combined by an 

operator. 

FPP instructions and PDP-8 memory reference instructions are illegal 
symbols in expressions. 

User symbols can be 1 to 6 alphanumeric characters in length and must 
have an initial alphabetic character. Any additional characters are 
ignored. Thus, the symbols 

A 

A1234 

are acceptable, but in the symbol 

AS YMBOLMAYBEMORETHAN 6 CHARACTERS 
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only the first six characters are stored as the symbol name. In this 
case, all characters after ASYMBO are ignored. 

All integer expressions are computed in 24 bit 2's complement arith- 
metic and then truncated as necessary (e.g., to 15 bits for 2-word 
FPP memory reference instructions and to 12 bits for expressions) . 

The following are examples of legal integer (address) expressions: 

START+1 
123 

BUFSIZ*2+BUFFER 
-3 

POINTER&7600+300 
(ADDRES+2 

The radix pseudo-ops, OCTAL and DECIMAL, are required for integer 
expressions; floating point and double precision expressions always 
have a radix of 10. All the symbols and numbers used in an expres- 
sion must be of the same type. Note that a decimal number of more 
than eight digits may cause improper conversion. 

Double precision numbers are treated as follows: 

a. Double precision numbers equal to or greater than 
1.0 in magnitude are converted to 2 word integers 
with the fractional part ignored. Thus, 

100. D is converted to 0;0144 (octal) 
409 7. D is converted to 1;1 

b. Double precision numbers less than 1.0 in magni- 
tude are converted to 2 word fractions (floating 
point numbers unnormalized to have zero exponent) . 
Thus , 

. 5D is converted to 2000;0 (octal) 
.125D is converted to 0400 ;0 

23 

Note that numbers greater than 2 -1 should not be used in double 
precision format. 
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Examples of acceptable double precision numbers are: 



100. D 10.2D1 10.2D+1 10D 

10. ID 102.0D-1 10. D 10D-2 

.101D .2D3 .02D4 1D3 



Some acceptable floating point numbers are: 

100. 10.2E1 10.2E+1 10E 

10.1 102.0E-1 10. E 10E-2 

.101 .2E3 .02E4 1E3 



3.3 Comments 

A comment is a not 2 added by the programmer at the end of a line of 
code, usually to indicate the logical sequence of the program. A 
slash (/) , precede! by a space, is typed to specify the start of a 
comment . 

4.0 ARITHMETIC AND LOGICAL OPERATORS 

The operators used by the FPP Assembler and their functions in com- 
bining numbers or symbols to form expressions are: 



OPERATOR FUNCTION 

+ 2's complement addition 

- 2's complement subtraction 

• * multiplication 

/ division (double precision and floating point 

only) 

& logical AND (integers only) 

(tab) inclusive OR (integers only) 

(space) inclusive OR used to separate two symbolic 

(integer) operators 

! inclusive OR (integer only) 



5.0 INSTRUCTIONS 

PDP-8 memory reference instructions and FPP codes are the legal de- 
fined mnemonics for use with the FPP Assembler. The following table 
lists these codes and their formats in an object program. Angle 
brackets (<>) indicate a required value; curved brackets ( {}) indi- 
cate optional fields; the notation! » indicates typing a space. 

(The instructions are described in Appendix C.) 
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5.1 



PDP-8 Memory Reference - 1 Word 
<mnemonic> <address expression^ 



AND 
DCA 
ISZ 



JMP 
JMS 
TAD 



5.2 PDP-8 Operate and IOT - 1 Word 



expression of mnemonics combined by operators> 



CIA 
CLA 
CLL 
CMA 
CML 
HLT 
IAC 
LAS 
NOP 



OSR 
RAL 
RAR 
RTL 
RTR 
SKP 
SMA 
SNA 
SNL 



SPA 
SZA 
SZL 
CDF 
KCC 
KRB 
KRS 
KSF 



RDF 
RIB 
RIF 
RMF 
TCF 
TLS 
TPC 
TSF 



FPINT 

FPICL 

FPCOM 

FPHLT 

FPST 

FPRST 

FPIST 



5.3 FPP Memory Reference Format 1 - 1 or 2 Words 

<mnemonic>{ L}{i il}i i<address expression> {, <index expression>{ + } } 

For this group of FPP instructions, the index expression is an integer 
expression truncated to 3 bits, so that it designates an index regis- 
ter. A plus sign can be placed after the index expression to indicate 
pre-incrementation of the index register. The L suffix with the 
mnemonic indicates 2 word format. If an L is not given, the Assembler 
will use 1 word format whenever possible. (Refer to the BASE pseudo- 
op, Section 9.5 and Referencing Memory, Section 10.0.) 



FADD 
FAD DM 
FDIV 
FLDA 



FMUL 

FMULM 

FSTA 

FSUB 

JXN 



TRAP 3 
TRAP4 
TRAP 5 
TRAP 6 
TRAP 7 



5.4 FPP Memory Reference Format 2-2 Words 



<mnemonic>i — Kaddress expression> 



An address expression is a truncated integer expression. 
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For these instructions, the address is truncated to 15 bits. 



JA 

JAL 

JEQ 

JGT 

JLT 

JLE 



JGE 

JNE 

JSA 

JSR 

SETB 

SETX 



5.5 FPP Index Register Format 1-1 Word 

<mnemonic>i (-index expression> 

The index expression is truncated to 3 bits and is the index regis- 
ter designator. 



5.6 FPP Index Register Format 2-2 Words 
<mnemonic> <value express ion> , <Lndex expression> 

The value expression is an integer expression truncated to 12 bits. 

LDX 
ADDX 

5.7 FPP Operates 
<mnemonic> 



6.0 LITERALS 

By starting an expression with a left parenthesis or square bracket 
(as explained below), the value after it is taken "literally" by the 
FPP assembler. There is then no need to specify an address or tag 
that contains the value. Internally the value of the literal expres- 
sion is the address of the word(s) generated by the Assembler that con- 
tains the evaluated expression. Literals are used with memory refer- 
ence instructions as follows : 



ALN 
XTA 
ATX 



FCLA 

FEXIT 

FNEG 



FNOP 

FNORM 

FPAUSE 



JAC 

STARTD 
STARTF 
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1. PDP-8 memory reference instructions can use a literal 
for the address. If the expression starts with a 
left parenthesis ( ( ) , then the literal is placed 

at the end of the current page; if it starts with a 
left bracket ({), the literal is placed at the end 
of page 0. Integer literals are 1 word long, double 
precision are 2, and floating point are 3. Literal 
tables are built backwards from the end of the page 
so that the most recently encountered literal has 
the lowest core address. Note that if the origin 
is set back into a previously used page, the literal 
block is reset and any literal defined subsequently 
will destroy any previous literals. Similarly, if 
page 0 variables and constants are defined in the 
program, sufficient space must be left at the end of 
page 0 for all literals that will subsequently be 
defined using left brackets. Because locations 
0— 1 7 are generally used for interrupts and auto- 
index registers, there may be only 112, - (160 R ) 
literals in page 0. ^ 

The following examples illustrate the use of literal 
expressions with some PDP-8 instructions. 

TAD (POINTER generates 1 word literal with the 
lower 12 bits of the address of 
POINTER at end of a current page. 

JMS SUB generates 2 word double precision 

(.333D literal at end of current page and 

a pointer to the 2 word literal. 

TAD [1.] generates a 3 word floating point 

literal at end of page 0. Only 
exponent of floating point number 
will be "TADed" at execution time. 

2. Any literals defined by an FPP memory reference instruc- 
tion are placed at the location specified by the LITORG 
pseudo-op. The enclosures left parenthesis and left 
bracket are equivalent with FPP literals. Literals that 
are floating point or integer occupy 3 words, double 
precision occupy 2 words. Be sure to leave enough 
room after the LITORG for all FPP literals. 

NOTE: FPP literals are not dumped in the order in 
which they occur, but in order of magnitude. 



The following examples illustrate the use of literal expressions with 
FPP memory reference instructions. 



FLDA (POINTER generates 2 word address literal at LITORG. 

15 bits of address literal are put into 
lower 15 bits of FAC (for JAC instruction) , 
assuming instruction is executed in float- 
ing point mode. 

FADD (2.D generates 2 word double precision literal 

at LITORG, assuming instruction is executed 
in double precision mode. 
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FLDA (1.0 



generates 3 word floating point literal 
at LITORG. 



7.0 LINKS 

If reference is mads to an address that is not on the same page as 
the instruction, the FPP Assembler creates an indirect address linkage 
on the current page. The address can, therefore, be accessed during 
the second pass of the Assembler. For example, the coding: 

ORG 200 
TAD A 

PAGE 
A, 1025 

is equivalent to 

ORG 200 
TAD I X 
X,A 

PAGE 
A, 1025 

All instructions generating links are flagged with the *LG* message. 
Each such message will be included in the error count. 

8.0 DATA SPECIFICATION 

A logical line of code may consist of just an expression, in one of 
the three acceptable formats. Such expressions can function as flags, 
pointers, constants, or symbols. 

9.0 PSEUDO-OPERATIONS 

A pseudo-operation is a defined mnemonic code that is included in 
the object program as a logical line to control some functions of the 
Assembler. No binary code is generated by a pseudo-op (except TEXT) . 
The FPP Assembler pseudo-ops and their functions are listed below. 

9.1 = (equate) The symbol to the left of the = is assigned the 

value and format to the right of it. 
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9 . 2 OCTAL 



The radix is set for integer conversion to octal 
numbers; digits 8 and 9 are not flagged in octal 
numbers . 



9 . 3 DECIMAL 



The radix is set for integer conversion to deci- 
mal numbers. 



9 . 4 PAGE 



The Assembler's output is set to the start of the 
next core page. 



9 . 5 BASE expr 



The location of the FPP base register is assigned 
so that displacements for 1-word FPP instructions 
can be computed. (The program must actually set 
the base register.) To denote the location of 
the base register, the pseudo-op BASE is followed 
by the address (expr), e.g., BASE A+3 . The expr 
used with BASE may not contain any symbols that 
are defined after the BASE pseudo-op. The correct 
sequence is illustrated by: 

A, 0.0 

B, 0.0 

BASE A 
FLDA A 

If no BASE pseudo-op is included, all FPP memory 
reference instructions will be 2 words. Refer to 
section 10.0 for additional information on refer- 
encing memory. 



9 . 6 TEXT 



A string of text may be entered by using the pseudo- 
op TEXT followed by a space or tab, a delimiting 
character, a string of text, and the same delimit- 
ing character, issued in that order. The first 
printinq character after TEXT is the delimiter and 
the text string is all the characters that follow 
it until the next occurrence of the delimiter or 
a carriage return. The characters space, tab, ; , 
and / can not be delimiters. For example 

TEXT %DATA% 



causes the word DATA to be printed with the code 
at assembly time as : 



221 0401 

222 2401 



TEXT %DATA% 



9 . 7 END 



Input is terminated. (This pseudo-op is optional, 
and is never printed on the listing.) 



9.8 CHAIN "name" unit 

Terminate assembly of current program and initiate 
assembly of the file name enclosed in quotes lo- 
cated on unit 0-7. During pass 1 (and pass 2 if 
a LISTOF pseudo-op has been issued) of the Assembler, 
a successful chaining is indicated by a message in 
the form 
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CHAINING TO name 



01 the Teletype. Unit is always an expression, 
tiat has a value 0-7, indicating the device. If 
no unit is specified, 0 is assumed. The programs 
that are to be chained together must all be on 
LCNCtapes, or all on disks. Disk units 10-17 
ace also referenced by the corresponding value in 
tie range 0-7 



9.9 ORG expr 



The starting location in memory for the Assembler's 
output is assigned the value of the lower 15 
bits of the address expression expr to set the 
location counter. For example, to set the origin 
at location 400 of field 1, the pseudo-op used is 
ORG 10400. 

If the ORG pseudo-op is omitted, an origin of 200 
in field 0 is assumed. 



9,10 LITORG expr Any literals generated by floating point instruc- 
tions are to be placed at location expr. All ad- 
dresses and floating point literals are stored 
as 3 word quantities; double precision literals 
are stored as 2 words. It is the user's responsi- 
bility to leave sufficient space after the literal 
origin to accommodate all floating point literals. 
If no LITORG pseudo-op is included in the program, 
all literals are placed immediately after the END 
statement. Only the last LITORG in a program is 
used . 



9 . 11 LISTON 



Turn program listing on. 
listing is already on.) 



(There is no effect if 



9.12 LISTOF 



Turn program listing off. (There is no effect if 
listing is already off.) This mnemonic is never 
1 is ted. 



9.13 EJECT The mnemonic EJECT is printed and the next line of 

the program listing is started at the top of next 
page of line printer paper. (There is no effect 
if output is to the Teletype or after a LISTOF 
pseudo-op. ) 



9.14 IFnnn (conditional assembly) 

The FPP Assembler has five conditional pseudo- 
cps. Four of them require a numeric parameter 



ps eudo-op 

IFZERO n 
IFNZRO n 
IFPOS n 
I FN EG n 



function 

assemble if zero 
assemble if not zero 
assemble if positive 
assemble if negative 
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where n is an integer expression. For each of the 
above conditional pseudo-ops, the expression n is 
evaluated and, if it fulfills the conditions of 
the pseudo-op (e.g., n equals zero for IFZERO) , 
the subsequent coding is assembled. If the con- 
dition is not met, the subsequent coding is ig- 
nored until a $ is encountered as an expression. 
Assembly is continued after the $. Extra $ charac- 
ters are treated as null input. 

The fifth pseudo-op is used in the format: 

IFREF symbol assemble if symbol was previously 

defined or referenced 

where symbol may be defined or undefined. When an 
IFREF statement is encountered, subsequent coding 
is assembled if the symbol after the pseudo-op has 
been defined or referenced in a previous statement. 
Note that use of a symbol with an IFREF pseudo-op 
or in a statement that was skipped during assembly 
because the condition required by a preceding con- 
ditional pseudo-op was not met does not constitute 
a reference to the symbol. 

If the symbol has not been previously defined or 
referenced assembly is continued as above with 
the other conditional pseudo-ops. 

Use of some of the conditional assembly pseudo- 
ops is illustrated in the next example. 



0001 IFPOS -1 

0002 A, 0,0 
00 03 S 

0004 IFNEG -1 

0005 00200 0000 B , 0,0 

00201 0000 

00202 0000 

0006 S 

0007 IFREF A 

0010 TAD A 

0011 $ 

0012 IFREF B 

0013 00203 1200 TAD B 

0014 $ 

0015 IFREF C 

0016 TAD C 

0017 S 



B 00200 
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10.0 REFERENCING MEMORY 



A PDP-12 computer with an FPP-12 is basically a 3 2K machine. All of 
this memory is referenced via the 15 bit address field provided by 
the 2 word memory reference instructions. When it is necessary to 
conserve memory, the short form (1 word) of the memory reference in- 
structions and the base page can be used. Those instructions that 
have a floating po:.nt operand can use this short form: 

FADD FDIV FMUL FSTA 

FADDM FLDA FMULM FSUB 

The base page is a movable page 0 assigned by the user. To deter- 
mine the location of the operand, the displacement field (address 
expression) is multiplied by 3 and added to the contents of the base 
register. Thus, u;:5ing the single word form of the instruction, any 
location within 1213*3 locations of the base register can be referenced, 
(Only 12 8*3 locations can be accessed because the displacement field 
has only 7 bits.) The location of the base page (via BASE) and the 
operands (via ORG, = , etc.) must be defined in the coding before the 
FPP instruction. Then the short form of the instruction will be 
executed unless the suffix L is added, forcing the long (2 word) form. 

Consider the following example of the BASE pseudo-op: 

ORG 200 

A, 0.0 

B, 0.0 

C, 0.0 

D, 0.0 
BASE 200 



SETB 200 
FLDA A 
FADD B 
FMUL C 

FSTA D / >= (A+B) *C 



This same program can be written with a subroutine: 

ORG 200 

A, 0. 

B, 0. 

C, 0. 

D, 0. 
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SETB 200 
JSA SUBR 



BASE 0 

SUBR, 0)0 /leave 3 words for JSA 

FLDA 0 /A 

FADD 3 /B 

FMUL 6 /C 

FSTA 11 /D 

JA SUBR /return 



This routine performs the same operation as the first one. The values 
0, 3, 6, and 11 are used with BASE 0 so that the Assembler generates 
the correct 1 word instructions. 

11.0 USING THE ASSEMBLER 

The FPP Assembler runs as a DIAL-MS 1 binary program. Therefore, 
after entering the source program into the source working area via 
DIAL-MS , type the command 

-KLO FPP ASM, 0 J (LINCtape systems) 

or 

-KLO FPP ASM, 10 J> (disk systems) 

to load the Assembler (it must be on the systems unit ) . The start- 
ing address is 11200. If a CHAINed source file is being assembled, 
the source working area must contain the first file to be chained or 
a single line that chains to the first file. The resulting binary 
will be placed in the binary working area. 

All error messages are printed in the listing above the line in which 
the error occurred. If no listing is being generated, the error mes- 
sages are printed with the line number of the incorrect statement on 
the on-line output device. The FPP Assembler error messages are 
listed in Appendix A. 



12.0 EXITING FROM THE ASSEMBLER 

Two methods are available for exiting from the FPP Assembler: 



CTRL/D - stops assembly 
to DIAL 

CTRL/L - the listing is 
continued. 



LAP 6 -DIAL-MS is referred to 



of program and control returns 

terminated but the assembly is 

as DIAL-MS in this manual. 
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13.0 EXAMPLE 

The following example illustrates some of the FPP instructions and 
their use with the FPP Assembler. 



: ■ 0 1 








ORG 


1000 




00 02 








P I =3 . 


14 159 




0 & 0 3 


0 1 0 id 0 


103 0 


SINE* 


J A 


0 


/ENTRY POINT h 0 R SINE(X) 




01001 


0/300 










00 04 












/CALLED BY JSA SINE 


0005 












/WITH X IN FAC 


,;006 












/RETURNS SINE(X) IN FAC 


t ■ 0 07 


01002 


3 40 0 




FD I V 


<P I *2. 


/DIVIDE ARG BY TWO PI 




01003 


1100 










0 0 1 0 


010 04 


6400 




FSTA 


X 


/SAVE ARG 




0100!? 


107 2 










0011 


01006 


0 010 




ALN 


0 


/I NT (X) 


0012 


01007 


0004 




FNORM 






J13 


01010 


2 400 




FSUB 


X 


/ 1 NT ( X ) -X 




01011 


1072 










4014 


01012 


4 40 0 




FMUL 


(4 . 


/4*( INK X) *X ) 




01013 


110 3 










0015 


01014 


0003 


SI NE2i 


FN EG 






0 016 


01015 


6400 




FSTA 


X 


/SAVE NEW VALUE OF X 




01016 


1072 










,;,:17 












/THIS IS THE LOOP THAT 


00 20 












/NORMALIZES THE RANGE OF X 


0 021 


01017 


10 60 




JGT 


SINE3 


/ABS (X ) 




01020 


1022 










0 2 2 


01021 


000 3 




FNEG 






0^23 


01022 


2 400 


SINES. 


FSU3 


(1 .0 


/IF( ABS( X) .LE.0)GO TO SINES 




01023 


1106 










32 24 


01024 


0400 




FLDA 


X 


/2*SGN (X )-X 




01025 


107 2 










0 0 2 5 


01026 


1050 




JLT 


SI NE4 






01027 


1034 










0 ■<> 2 6 


0 1 0 3 l 0 


2400 




FSUB 


(2,0 






01031 


1111 










2327 


01032 


103 0 




JA 


SI NE2 






01033 


1014 










k> ^ 3 0 


01034 


140 0 


SlNE fi . 


F ADD 


(2.0 






01035 


1111 










" 0 31 


01036 


103 0 




JA 


SI NE2 






01037 


1014 










1*50 32 


01040 


0400 


SI NE5, 


FLDA 


X 


/X2=X*X 




01041 


107 2 










0033 


01042 


4400 




FMUL 


X 






01043 


107 2 










0034 


010 4 4 


6400 




FSTA 


X2 






0 10 45 


1075 










00 35 


01046 


4 400 




FMUL 


( . 15148418E-3 


/X2»C9 




01047 


1114 










00 36 


010 50 


140 0 




FADD 


(« .46737656E-2 


/C7+X2*C9 




01051 


1117 










0037 


010 52 


4 40 0 




FMUL 


X2 


/X2» (C7+X2*C9) 




01053 


1075 










00 40 


01054 


1 40 0 




FADD 


( , 7968968E-1 


/C5+X2*( C7+X2*C9 ) 




01055 


1122 










0041 


01056 


4400 




FMUL 


X2 


/X2» (C5+X2*< C7+X2»C9 > > 




01057 


107 5 











14 



0042 


01060 


1400 




FADD 




01061 


1125 






0043 


01062 


4 400 




FMUL 




01063 


1075 






00 44 


01064 


1400 




FADD 




01065 


1130 






0045 


01066 


4400 




FMUL 




01067 


1072 






00 46 


01070 


103 0 




JA 




01071 


1000 






0047 


01072 


0 00 0 


X, 


0.0 




01073 


0000 








01074 


0000 






0050 


01075 


0000 


X2. 


0.0 




01076 


0000 








01077 


0000 







(=.64596371 
X2 

(PI/2. 
X 

SINE 



/C3+X2*( C5+X2*(C7+X2»C9) ) 
/X2* (C3+X2*( C5+X2* (C7*X2»C9) ) ) 
/C1 + X2M C3+X2*(C5 + X2*( C7*X2*C9)) ) 
/X*( C1+X2*(C3+X2«( C5+X2»(C7+X2«C9) 
/RETURN SIN(X) 



01125 0000 

01126 5 32 5 

01127 0420 

01106 0001 

01107 2000 

01110 0000 

01130 0 001 

01131 3110 

01132 3747 

01111 0002 

01112 2000 

01113 0000 

01103 0003 

01104 2000 

01105 0000 

01100 0003 

01101 3110 

01102 3747 

01114 7764 

01115 2366 

01116 5735 

01117 7771 

01120 5466 

01121 6317 

01122 7775 

01123 2431 

01124 5053 



00 00 ERROKS 

PI 0002 3110 3747 

SINE 01000 

SINE2 01014 

SINE 3 010 22 

SINE4 01034 

SINE5 01040 

X 01072 

X2 01075 
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14.0 INTERNAL DESCRIPTION 



The FPP Assembler is designed to handle standard PDP-8 assembly 
language, with simple extensions to include code for the FPP-12 
floating point option. The Assembler runs under control of DIAL 
on an 8K PDP-12 (except for single DF32 systems) . Because the 
FPP-12 option effectively has a 32K directly addressable memory, 
all address computations are done in 24 bits. Double precision 
and floating point symbols may also be defined using the equate 
(=) pseudo-op. 

14.1 Program Labels 

START: reac a new line from input file, unpacking the 

characters and putting them into LINE in ASCII: 
set CHRPTR and NCHARS. 

ASMBL: check for the special cases: 

1) line starting with slash - ignore it 

2) $ sign - end of conditional assembly section 

3) leading blanks or tabs - ignore them and go 
back to 1 

4) if assembly off - ignore line 



LUNAME 



1) save character pointer 



2) look for an identifier followed by a comma 
and define tag; then go back to ASMBL 

3) if no comma, look for equal sign and use 
EXPR to evaluate expression and set symbol 
to that value and type; then go to NEXTST. 

4) if no equal sign, look for a blank; if a 
blank is found, jump to one of the instruc- 
tion type handlers if the identifier was an 
op-code or pseudo-op, or go to GETEXP if an 
IOT, OPERATE, or user symbol 

5) if no blank, go to GETEXP 



GETEXP 



1) reset character pointer 

2) evaluate line as an expression and output 
1, 2 or 3 words, as specified 

3) go to NEXTST 
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14.2 Op-Code Handlers 



FPPMR : 

FPPMRL : 

FPPS1: 
PDP8MR: 
FPPS2 : 
FPPS3 : 
PSEUDO: 
FPPS4 : 
FPPS5: 



handle FPP memory reference instructions usiri'/ 1 
word format if possible 

handle FPP memory reference instructions usinq 2 
word format 

handle FPP special format 1 

handle PDP-8 memory reference instructions 

handle FPP special format 2 

handle FPP special format 3 

jump to PSEUDO-OP handler 

handle FPP special format 4 

handle FPP special format 5 



All op-code handlers jump back to NEXTST to get the next statement. 
14.3 Major Subroutines^ 



PRINTC : 



GETCHR: 



BACK1 : 



enter with the ASCII character in the AC to be 
printed on the output device (line printer or 
Teletype) 

get the next character from the input line, and 
skip one instruction upon return; if end of line 
encountered (CR, semicolon, slash) do not skip; 
multiple blanks and tabs return as a single blank 

replace last character looked at; can be entered 
with AC non-zero, but can not be used to go back 
more than 1 character 



GETNAM: look for an identifer in the input line, start- 

ing at the current character; if no identifier 
present, return without skipping; if identifier 
is present, put first character into BUCKET (6 
bits), next five into NAMEl , NAME 2 , NAME 3 , with 
lower 6 bits of NAME 3 set to zero; any charac- 
ters of the identifier beyond 6 are scanned off 
and ignored; skip one instruction upon return 
if successful. 



EXPR: look for a legal expression in the input state- 

ment starting at the current character; return 
without skipping if no legal expression present; 
if a legal expression is found, the value is re- 
turned in EXPVAL, EXPVAL+1, EXPVAL+2, if floating 
point or double precision or integer (address) ; 
the type is returned in EXPTYP ( 0-undef ined , 1- 

integer, 2-double precision 3-floating point) ; 

"'"Enter and leave with AC=j2f unless otherwise noted. 
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the last operator encountered in the expression is 
returned in LAS TOP ; skips 1 instruction if expres- 
sion found. 

uses EXPR to get an expression and checks the type, 
:!.f type was not integer (or undefined) it prints 
the *BX* message 

writes out the next word as a 2 character error 
message on pass 1 or 2 

same as ERMSG1, except only prints on pass 2 

takes the identifier in BUCKET, NAME1 , NAME 2 , NAME 3 
and searches for it in the symbol table; if the 
name is not found, a new entry is started by set- 
ting up the link word and entering the 3 word name, 
the routine then returns with NEXT pointing to the 
place where the value will be stored and LTEMP 
pointing to the word into which the type will be 
stored; the return is then made without skipping. 
::f the identifier is found, the return is made 
skipping one instruction with LTEMP pointing to 
the type word, NEXT pointing to the first word of 
the value and the type in the AC. LOOKUP always 
returns with data field set to 1 (this is where 
symbol table resides) . 

:ls entered with a word to be output in the AC; if 
pass 1 it returns immediately on pass 2, the word 
:.s placed into the binary working area at the lo- 
cation specified by L0CTR1 , L0CTR2 if listing is 
on, the word is printed with the location on the 
Listing if this is the first word generated by 
-he current input line, the text of the line is 
also printed. 

handles the general FPP instruction address, plac- 
ing the value of the address field into FPPADR, 
rPPADR+1; setting INDEX to 1 if an index register 
cield was present, otherwise to 0, and leaving the 
Index register number in the low three bits of 
CXPVAL+2 . 

puts the index register, increment bits and opcode 
bits together leaving them in OPCODE (used only 
by FPP code) 

prints the AC as 4 octal digits followed by a 
blank 

checks the Teletype for control-L and control-D 
(to abort listing and abort assembly respectively) 
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14.4 Important Switches and Variables 



NEXT: 
CHRPTR: 
NCHARS : 
LINSIZ : 
CHRCNT : 

LOCTR1 

LOCTR2 

LITRG1 

LITRG2 

BASER: 

EXPVAL : 

EXPTYP : 

EXPSW: 

WORD1 il 
WORD 2 : [ 

FPPADR: 

OPCODE : 
INDEX: 
INDRCT: 
BUCKET : 

NAME1: 
NAME 2 : 
NAME 3 : 
LASTOP : 
PASS NO : 
AS MOP : 

LINENO: 
LISTSW: 



pointer to next available word in symbol table space 
pointer to next character in input line 

2's complement of number of remaining characters minus 1 

2's complement of number of characters in the input line 

2's complement of number of characters in input buffer 
minus 1 

high order word of 2 word location counter 

low order word of 2 word location counter 

high order value of FPP literal origin 

low order value of FPP literal origin 

base register value assigned by BASE (2 words) 

expression value returned by EXPR (3 words) 

type of expression ( 0-undef ined, 1-address, 2-double 
precision, 3-floating point) 

used internally by EXPR 

2 word address type operand 

holds address field for FPP memory reference instruc- 
tions that use index field (2 words) 

contains opcode skeleton 

set 1 if FPP instruction has index field 

set 1 if FPP instruction has no indirect 

contains first character of identifier after call to 
GETNAM 

characters 2 and 3 of identifier 
characters 4 and 5 of identifier 
character 6 of identifier 
last operator encountered by EXPR 
pass number 

set 1 when assembly off in a conditional assembly sec- 
tion 

dial line number 
set 1 if listing on 
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LSTON : 
OUTSWT: 
SCSWT : 
RADIX: 



EMP: 1 

TMP • \ 



LTEMP 
EXT MP : 
EXTMP2 : 



EQUN: 

FPPSWT: 
FPP2WD: 
FPPWD2 : 
LITRL: 
DIALRD : 
DIALWR: 
BBLOCK : 

BFUDGE: 

SBLOCK : 

SFUDGE : 

STAR20 



otempTI 

OCNT: J 
P0LIT: 
CPLIT: 



set 1 if listing controlled by LISTSW, 0 is no listing 
set 1 if current input line has already been listed 
set 1 if current input line ended with a semicolon 
set 1 for decimal, 0 for octal 

general temporaries 

holds identifier name while evaluating expression on 
right side of = 

set ] when EXPR being used to find address for FPPMRI 

set 1 by EXPR to force 2 word FPPMR format 

set I by FPP2WD=1 or EXPTYP=0 for FPPMRI address 

set I. if expression is preceded by ( or (literal 

address of DIAL-MS read routine 

address of DIAL-MS write routine 

relative block number for binary working area block 
currently in core 

absolute block number of block 0 of binary working 
area 

relative block number for next block of source to 
be re ad 

absolute block number of block 0 of source working 
area 



set to 0 if first read from a source file (ignore *20) 
temporaries 

page 0 literal boundary address 

current page literal boundary address (modulo 200 g ) 
14.5 Assembly of FPPASM 



To assemble FPPASM, copy the files: FPPASM1 , FPPASM2 , and FPPASM3 
onto the system device, enter a single line into the source working 
area : 

"CHAIN F?PASM1" 
then type "LO FPPASM, n" 

where n is the unit containing the binary for FPPASM. 
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APPENDIX A 
ERROR MESSAGES 

The following error messages can appear before the line in error when 
attempting to assemble a program with the FPP Assembler/ except the 
EG message which appears after the line. If a line of code includes 
statements terminated by a semicolon, then the error message for a 
statement precedes the printing of its octal value on the next line. 
Note that a fatal error causes an immediate return to DIAL after the 
message is printed. 



BE 




illegal equate 


BX 




bad address or index register expression 


CH 




chain error (fatal error) 


EG 




extraneous input 


II 




illegal indirect (FPP instructions only) 


IR 




illegal reference 


LT 




input line too long 


MD 




multiply defined symbol (tag or -) 


MT 




mixed types in expression 


PO 




page overflow 


ST 




symbol table full (fatal error) 


UO 




undefined origin or base 


US 




undefined symbol 


LG 




link generated 
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APPENDIX B 



DETERMINING THE NUMBER OF SYMBOLS 



The following inequality can be used to determine the number of sym- 
bols that can be defined by the user without overflowing the symbol 
table. 



(Number Address Symbols + Number Double Precision Symbols) *6 
+ (Number Floating Point Symbols) *7 
+ (Number Floating Point Literals) *4 

+ (Number Double Precision Literals) *3<3477 

There can be 579 integer or double precision symbols. 
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APPENDIX C 



SUMMARIES 



C.l Character Set 



Keyboard 



A 

B 

C 

D 

E 

F 

G 

H 

I 

J 

K 

L 

M 

N 

O 

P 

Q 

R 

S 

T 

U 

V 

w 

X 
Y 
Z 

[ (SHIFT/K) 
\ (SHIFT/L 
] (SHIFT/M) 

t 



SPACE 

! 

■I 

f 
$ 



External 
(ASCII) 

301 
302 
303 
304 
305 
306 
307 
310 
311 
312 
313 
314 
315 
316 
317 
320 
321 
322 
323 
324 
325 
326 
327 
330 
331 
332 
333 
334 
335 
336 
337 
240 
241 
242 
243 
244 
245 
246 
247 
250 
251 
252 
253 
254 
255 
256 
257 
260 
261 



Internal 
1 

2 

3 

4 

5 

6 

7 
10 
11 
12 
13 
14 
15 
16 
17 
20 
21 
22 
23 
24 
25 
26 
27 
30 
31 
32 
33 
34 
35 
36 

Illegal (not displayed) 

40 

41 

42 

Illegal (not displayed) 

44 

45 

46 

Illegal (not displayed) 

50 

51 

52 

53 

54 

55 

56 

57 

60 

61 
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Keyboa d 



External 
(ASCII) 



Internal 



LINE FEED 
RETURN 
ALTMCDE 
RUBOUT 

CONTROL/1 (TAB) 



262 


62 


263 


63 


264 


64 


265 


65 


266 


66 


267 


67 


270 


70 


271 


71 


272 


72 


273 


73 


274 


74 


275 


75 


276 


76 


277 


77 


300 


Illegal (not displayed) 


212 


37 


215 


43 (not displayed) 


375 


None (not displayed) 


377 


None (not displayed) 


211 


47 (not displayed) 



C.2 Operators 



Char Operation 

= Define parameters 

+ Combine symbols or numbers 
Combine symbols or numbers 

* Multiply 

/ Divide; comment (preceded by space) 

Value of current location counter 

; Terminate coding line 

& Logical AND 

! Logical IOR (integer) 

tab Logical IOR (integer) 

space Logical IOR (integer) 

return Terminate statement 
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C.3 Pseudo-operations 



BASE expr 

CHAIN "name" unit 

DECIMAL 

EJECT 

END 

IFNEG n 
IFNZRO n 
IFPOS n 
IFPvEF symbol 

IFZERO n 

LISTOF 

LISTON 

LITORG expr 

OCTAL 

ORG expr 

PAGE 
TEXT 



Assign base register for 1-word instructions. 

Continue assembly at program "name" on unit (0-1) . 

Set radix for integer conversion to decimal numbers. 

Continue listing at top of next line printer paper 
page . 

Terminate input. 
Assemble if n is negative. 
Assemble if n is not zero. 
Assemble if n is positive. 

Assemble if symbol has already been defined or 
referenced. 

Assemble if n is zero. 

Turn program listing off. 

Turn program listing on. 

Start literal list at location expr. 

Set radix for integer conversion to octal numbers. 

Set starting location for output to lower 15 bits 
of expr. 

Continue output at start of next core page. 
Print the line of text between delimiters. 
Equate symbol on left of = to that on the right. 



IOT MICROINSTRUCTIONS 



Mnemonic 



Octal 



Keyboard/Reader 



KSF 
KCC 
KRS 
KRB 



6031 
6032 
6034 
6036 



Teleprinter /Punch 



TSF 
TCF 
TPC 

TLS 



6041 
6042 
6044 

6046 



Operation 



Skip if keyboard/reader flag = 1 
Clear AC and keyboard/reader flag 
Read keyboard/reader buffer 
Clear AC and read keyboard buffer, and 
clear keyboard flag 



Skip if teleprinter/punch flag = 1 
Clear teleprinter/punch flag 
Load teleprinter/punch buffer, select and 
print 

Load teleprinter/punch buffer, select and 
print, and clear teleprinter/punch flag 



Mnemonic Octal Operation 
Extended Memory (Type MC8/I) 

CDF 62nl Change to data field n 

CIF 62n2 Change to instruction field n 

RDF 62n4 Read data field into AC 

RIF 6224 Read instruction field into AC 

RMF 624 4 Restore memory field 

RIB 6234 Read interrupt buffer 



C.4 FPP Symbols 

DATA REFERENCE INSTRUCTIONS 



Mnemonic 


Data Function 


FLDA 


C(Y) +FAC 


FADD 


CCY) +C (FAC) ->FAC 


FADDM 


C (Y)+C(FAC) 


FSUB 


C(FAC)-C(Y)+FAC 


FDIV 


C(FAC)/C(Y)+FAC 


FMUL 


C(FAC) *C(Y) +FAC 


FMULM 


C(FAC) *C(Y)+Y 


FSTA 


C(FAC) +Y 



INDEX REGISTER MODIFIERS 



Mnemonic 



JXN 



TRAP 3 thru TRAP 7 



LDX 



Operation 

The index register is incremented if bit 5=1 and 
a jump is executed to the address contained in 
bits 9-23 if index register X is nonzero. 

The instruction trap status bit is set and the 
FPP-12 exits, causing a PDP interrupt. The un- 
indexed operand address is dumped into the APT. 

The contents of the index register specified to 
bits 9-11 are replaced by the contents of bits 
12-23. 



ADDX 



ALN 



The contents of bits 12-23 are added to the index 
register specified by bits 9-11. 

The mantissa of the FAC is shifted until the FAC 
exponent equals the contents of the index regis- 
ter specified by bits 9-11. If bits 9-11 are ^ 
zero, the FAC is aligned such that the exponent 
= (23), In double precision mode, an arithme- 
tic shift is performed on the FAC fraction. The 
number of shifts is equal to the absolute value 
of the contents of the specified index register. 
The direction of shifting depends on the sign of 
the index register contents. A positive sign 
indicates a shift towards the least significant 
bit while a negative sign indicates a shift to- 
wards the most significant bit. The FAC exponent 
is not altered by the ALN instruction in double 
precision mode. 



"^"Setting the exponent = (23),,. integerizes or fixes the floating point 
number. The JAL Instruction ^ tests to see if fixing is possible. 



C-4 



Mnemonic 



Operation 



ATX 



XTA 



OPERATES 
FEXIT 

FPAUSE 

FCLA 
FNEG 
FNORM 

STARTF 
STARTD 
FNOP 

JAC 



The contents of the FAC is fixed and the least 
significant 12 bits of the mantissa are loaded 
into the index register specified by bits 9-11. 
In double precision mode the least significant 
12 bits of the FAC are loaded into the specified 
index register. The FAC itself is not altered 
by the ATX instruction. 

The contents of the index register specified by 
bits 9-11 are loaded right justified into the 
FAC mantissa. The FAC exponent is loaded with 
(23)^0 and then the FAC is normalized. This op- 
eration is typically termed floating a 12-bit 
number. In double precision mode the FAC is 
not normalized. 



Dump active registers into the active parameter 
table, reset the FPP-12 run flip-flop to the 0 
state, and interrupt the PDP processor. 

Wait for external synchronizing signal. This 
instruction is designed to cooperate with the 
AIP-12 option. IOT FPST (6555) will restart the 
FPP-12 executing the instruction following FPAUSE. 

Zero the FAC mantissa and exponent. 

Complement the FAC mantissa. 

Normalize the FAC. In double precision mode 
FNORM is a NOP. 

Start floating-point mode. 

Start double-precision mode. 

These single-word instructions perform no opera- 
tion. 

Jump to the location specified by the 1st least 
significant 15 bits of the FAC mantissa. 



CONDITIONAL JUMPS 

JEQ Jump if the FAC = 0 

JGE Jump if the FAC _> 0 

JLE Jump if the FAC <_ 0 

JA Jump always 

JNE Jump if the FAC ? 0 

JLT Jump if the FAC < 0 

JGT Jump if the FAC > 0 

JAL Jump if impossible to fix the floating point 

number contained in the FAC; i.e., if the ex- 
ponent is greater than (23) 
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POINTER MOVES 



Mnemonic 



Octal 



Operation 



SETX 



SETB 



JSR 



JSA 



Set X0 to the address contained in bits 
9-23 of the instruction. 

Set the base register to the address con- 
tained in bits 9-23. 

Jump and save return. The jump is to the 
location specified in bits 9-23 and the re- 
turn is saved in bits 21-35 of the 1st 
entry of the data block. 

An unconditional jump is deposited in the 
address and address+1 where address is 
specified by bits 9-23. The FPC is set to 
address+2 . 



FLOATING POINT 



FPINT 
FPICL 

FPCOM 



FPHLT 



FPST 



FPRST 
FPIST 



6551 
6552 

6553 



6554 



6555 



6556 
6557 



Skip on FPP interrupt. 

Clear the FPP interrupt flag and reset all 
important registers. FPICL is equivalent 
to an I/O present for the FPP. 

Load FPP command register and field bits 
of the APT pointer if: 

a) The FPP is not running and 

b) The FPP interrupt flag is reset. 

Force an FPP exit at the end of the current 
instruction. 

Load the 12 least significant 12-bits of 
the APT pointer and start if the FPP is 

a) not running and 

b) if the FPP interrupt flag is reset, 
FPST will restart the FPP following 
an FPAUSE instruction without re- 
initialization. 

If the FPP is started or restarted, FPST 
will skip. 

Read the FPP status register into the AC. 

Skip on the FPP interrupt flag. If the 
skip is granted, clear the flag, and read 
the FPP status into the AC. 



FUNCTION OF PDP AC BITS WITH FPCOM (65 53) IOT 



AC0 
AC1 



Select double precision mode. 
Exit on exponent underflow error. 



Mnemonic Operation 

AC 2 Enable memory protection. 

AC 3 Enable interrupt. 

AC 4 Do not store op address on exits. 

AC5 Do not store address of index registers on 

exits . 

AC6 Do not store address of indirect pointer 

lists on exits. 

AC7 Do not store FAC on exits. 

AC 8 Lockout CPU when FPP is active. 

AC 9 1 4K field select bits 

AC10 > of "Active Parameter 

AC11J Table" pointer. 



PDP AC AFTER READ STATUS IOT'S FPIST (6557) OR FPRST (65 56) 



ACfl Double precision mode. 

AC1 Instruction trap. 

AC 2 CPU force trap 

AC3 Divide by zero 

AC 4 Fraction overflow (double precision mode 

only) 

AC 5 Exponent overflow 

AC 6 Exponent underflow 
AC7| 

AC8> Unused 
AC9J 

AC10 Paused 

AC 11 Run 

ACTIVE PARAMETER TABLE FORMAT 

Location Contents 



Field bits Field bits Field bits Field bits 

of Operand of Base of Index Reg of 

Address Register ister Loc'n FPC 



P + 1 Lower 12 bits of FPC 

P + 2 Lower bits of index register 0 location X 0 
P + 3 Lower bits of Base Register 
P + 4 Lower bits of operand address 
P + 5 Exponent of FAC 
P + 6 MSW of FAC 

P + 7 LSW of FAC NOTE: APT address points to location P. 

NOTE: APT address points to location P. 
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APPENDIX D 
SYSTEM FLOW CHARTS 



READ NEW 

LINE FROM 

BUFFER 

UNTIL 

CARRIAGE 

RETURN 



_±1 



No 




SET 

CHRPTR 

AND 

NCHARS 



Yes 



SKIP OVER 
SEMICOLON 



A 



GET A 
CHARACTER 



Yes 




ASMBL ^ 



YES 



PRINT LINE 
IF IT 
WAS NOT 
PRINTED 



Ye 



TURN 

ASSEMBLY 
BACK ON 



Q 



NEXTST 




No 



PUT BACK 
CHARACTER 



Yes 



PRINT 

MESSAGE 

*EG* 



(nOTEG^ 



D-l 



^ 

CHECK FOR 
CONTROL- D 
OR 

CONTROL- L 




SAVE CHAR 
POSITION 



No 



^ GET EXP ^ 



Yes 



GET 

NEXT 

CHAR 




No 



-^ TRYEQU ^ 



DO SYMBOL 

TABLE 

SEARCH 



No 



Yes 



^JDEF LBL ^ 
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FIX 

DATA 

FIELD 



^ DEFLBL ^ 



SET 

TYPE 

"ADD 


SYMBOL 

TO 
RESS" 


s 


/ 



SAVE 

LOCATION 
COUNTER AS 
VALUE OF 
SYMBOL 




SAVE 
SYMBOL NAME 
IN EQUN 
(4 WORDS) 



GET 
VALUE 
USING 
EXPR 




V 

DO SEARCH 
FOR THIS 
SYMBOL 
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Yes 



NEWSYM ^ $ 



ALLOCATE 
ROOM FOR 

VALUE :F. P.. -3 WORDS 
D.P.& address- 
2 WORDS 



No 



-9 



PRINT 
*BE* 



NEXTST ^ 



Yes 



STORE VALUE 
OF EXPRESSION 
INTO SYMBOL 
TABLE ENTRY 

31 



NEXTST 




) 



C GETEXP^) 



^ NEXTST ^) 



Yes 



No 


BACK UP TO 
BEGINNING 
OF LINE 




GET EXPRESSION 
VALUE USING 
EXPR 


—5 


OUTPUT (BINARY) 
• 1 WORD ADDRESS 

2 WORDS D.P. 

3 WORDS F.P. 


> > 







LOOKUP 
SYMBOL IN 
SYMBOL 
TABLE 



JUMP THROUGH 
TABLE USING 
SYMBOL TYPE 



GETEXP 
PSEUDO 
//PDP8MR 
>PPMR 
FPPS1 
FPPS2 
FPPS3 
FPPS4 
\^FPPS5 
FPPMRL 
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CHAINING TO FPPASH2 
CHAINING TO FPPASK3 













/FPP ASSEMBLER 04/01/71 


0002 










/COPYRIGHT 


00fc3 










/DIGITAL EQUIPMENT CORP , 


0004 










/MAYNARD , MASS , 


0005 








FLO0*0 




0006 








FLO1«10 




00 0 7 








ORG 3 




0010 


00003 


0014 


VERS, 


14 


/VERSION NUMBER 


0011 


00004 


f' 0 \A 0 


QLQN3, 


0 


/TEMP FOR LOOKUP 


0012 


00005 


B000 


QTEMP i 


0 


/A COUPLE OF TEMPS THAT 


0013 


00006 


0000 


OCNT, 


0 


/OIONT FIT INTO THEIR PAGE 


0014 


00007 


77^2 


PAGSIZ, 


-76 


/LINES PER PAGE COUNTER 


0015 


00010 


0000 


X10, 


0 




0016 


00011 




Xll, 


0 




0017 


00012 


0000 


X12 P 


0 




0020 


00013 


Ol0fc<0 


X13, 


0 




0021 


00014 


0088 


X14, 


0 




0022 


00015 


0000 


X15, 


0 




0023 


00016 


1140 


NEXT, 


f KEfc-l 




0024 


00017 


0000 


CHRPTR , 


0 




0025 


00020 


7777 


NCHARS, 


-1 


/CHARACTER INPUT STUFF 


0026 


00021 




CPTMP, 


0 




0027 


00022 


8000 


NCTMP, 


0 


/USED TO SAVE CHAR POSITION 


0030 


00023 


R080 


LINSIZ, 


0 


/SIZE OF LINE FOR PRINTING 


0031 


00024 


7777 


CHRCNT, 


-1 


/CHAR COUNT FOR INPUT FILE 


0032 


00025 


7702 


SIZPAG, 


-76 


/NUMBER OF LINES PER PAGE 


0033 


00026 


0000 


LOCTRt, 


0 


/24 BIT LOCATION COUNTER 


0034 


00027 


0200 


LGCTR2, 


200 




0035 


00030 


4000 


LITRGl, 


4000 


/FIRST WQRO OF LITERAL CFP) ORG 


0036 


00031 


0000 


LITRG2, 


0 




0037 


00032 


4 0 (A 0 


BASER, 


4000 


/BASE REGISTER SETTING 


0040 


00033 


R000 




0 




0041 


00034 


f*0fc0 


EXPVAL, 


0 


/EXPRESSION VALUE 


0042 


00035 


0000 




0 




0043 


00036 


0000 




0 




0044 


00037 


0 0 * 0 


EXPTYP, 


0 


/EXPRESSION TYPE 


0045 


00040 


0 ^ t< 0 


EXPSW, 


0 


/FLAG-1 IF NO EXPR 


0046 


00041 


id*0 


wQRDl , 


0 


/TEMPORARY 2 WORD OPERAND 


0047 


00042 


£.000 


WUR02, 


0 




0050 


00043 


0000 


FPPADR, 


0 


/ADDRESS FIELD FOR FPP INDEX INS 


0051 


00044 


0 0 P! 0 




0 




0052 


00045 


0000 


OPCODE, 


0 


/OPCODE OR PSEUDO-OP POINTER 


0053 


00046 


0000 


INDEX, 


0 


/INDEX FLAG « 1 IF INDEX PRESENT 


0054 


00047 


&-0f.0 


INDRCT, 


0 


/INDIRECT FLAG s 0 IF IND IN FPP 


0055 


00050 


8001 


XINCR, 


1 


/FLAG ■ 0 IF + LEGAL IN INDEX EX 


0056 


00051 


fri000 


BUCKET, 


0 


/FIRST CHAR OF NAME 


0057 


00052 


P0f.0 


NAMEl , 


0 


/CHARS 2 AND 3 OF NAME 


0060 


00053 


W000 


NAME2, 


0 


/CHARS 4 AND 5 OF NAME 


0061 


00054 


0000 


NAHE3, 


0 


/CHAR 6 OF NAME AND TYPE 


0062 


00055 




LaSTOP f 


0 


/LAST OPERATOR ENCOUNTERRED IN E 


0063 


00056 


0001 


PAS3N0, 


1 


/PASS NUMBER 


r\fA& A 




w g 5» 


A $ M Q F . 


0 


/SET TO 1 WHEN ASSEMBLY OFF 


0065 


00060 


H0<30 


LINENO, 


0 


/LINE NUMBER 





00061 


<A If I 


LISTSW, 


1 


mt7 


00062 


f*00 1 


LSTON, 


1 


00 7 


00063 




OUTSWT, 


0 


0071 


00064 


£0£B 


SUSwT, 


0 


0072 


5*4065 


«0^0 


RADIX, 


0 


0073 


00066 




LUMP, 


0 


007d 


00067 




EXTMP, 


0 


0075 


00070 


8 id life 


EXTMP2, 


0 


0076 


00071 


E* 0 0 Vi 




0f 0; 




00072 










00073 


0(S00 








00074 








0077 


00075 


0000 


FPPSWT, 


0 


0100 


00076 


0080 


FPP2WD, 


0 


0101 


00077 


0000 


FPPWD2 f 


0 


0102 


00100 


fitf00 


LITRL, 


0 


0103 


00101 


7630 


OIALRD, 


7630 


0104 


00102 


7632 


OIALWR, 


7632 


0105 


00103 


0000 


BBLOCK, 


0 


0106 


00104 


2370 


8FU0GE, 


370 


0107 


00105 


0000 


SfiLGCK, 


0 


0110 


00106 


^370 


SFUGGE, 


370 


0111 


00107 




STAR20, 


0 


0112 


00110 


£177 


P0LIT, 


177 


0113 


00111 


tU77 


CPLIT, 


177 


0114 


00112 


0000 


ACE, 


0 


0115 


00113 


00P?0 


OPE, 


0 


0116 


00114 


0000 


THP, 


0 


0117 


00115 


mm 


ACQ > 


0 


0120 


00116 


R0P0 


ACL t 


0 


0121 


00117 


0000 


ACH, 


0 


0122 


08120 


00£*0 


0P0, 


0 


0123 


00121 


$000 


QPL, 


0 


0124 


00122 


0000 


QPH , 


0 



/LIST SWITCH 

/NO LIST OPTION SWITCH 

/OUT SWITCH 

/SEMICOLON SNITCH 

/RADIX FOR INTEGERS (0 IS OCTAL) 

/TEMP USED BY LOOKUP 

/TEMPS USEO BY EXPR AND OTHERS 



t\ WHH£N FINDING FPP ADR EXPR 

/SET BY EXPR TO FORCE 2 WD FMT 

/SET 'BY FPP2WD,QR.EXPTYP,EQ,0 

/SET * 1 FOR LITERAL 

/DIAL INPUT ROUTINE 

/DIAL OUTPUT ROUTINE 

/CURRENT BINARY OUT BLOCK (RED 

/BINARY FUDGE FACTOR 

/CURRENT SOURCE INPUT BLOCK 

/SOURCE FUDGE FACTOR 

/IGNORE *20 AT BEGINNING OF FILE 



0125 








EJECT 




0126 








ORG 


177 


/ ENTER INTERPRETER BY A JMS 177 


0127 


00177 


0000 


PPT , 


0 






0130 






F7600*, 






/ftRONGI WRONG! WRONG! 


0131 


00200 


7400 


F7400, 


7400 




0132 


00201 


3115 




DCA 


ACO 


/CLEAR AC OVFLO WO 


0133 


00202 


1577 




TAO 


I FPT 




0134 


00203 


0210 




ANO 


F 177 




0133 


00204 


3363 




OCA 


F ADR 


/GET LOW ORDER ADDRESS BITS 


0isa 


00205 


1577 




TAO 


I FPT 




0137 


00206 


0215 




ANO 


F200 




0140 


00207 


7041 




CIA 






0141 


00210 


0177 


F177, 


AND 


FPT 


/ADO BEGINNING OF PAGE IF NECESSARY 


0142 


0021 1 


1363 




TAO 


FAOR 




0143 


00212 


3363 




OCA 


FAQR 




0144 


00213 


1577 




TAO 


I FPT 




0145 


00214 


2177 




ISZ 


FPT 


/BUMP FP LOC CTR 


0146 


00215 


0200 


F200# 


ANO 


F7400 




0147 


00216 


7166 




CLL 


CML CM A 


RTL 


0150 


00217 


7006 




RTL 






0151 


00220 


1360 




TAD 


FPJUMP 




0152 


00221 


3241 




OCA 


FPGOTO 


/FORM JUMP FROM OPCODE 


0153 


00222 


7620 


FPSNLf 


SNU 


CLA 


/USED AS BASE FOR OPRS 


0154 


00223 


5226 




JMP 


• + 3 


/NO INDIRECT AODRESSING 


0155 


00224 


1763 




TAO 


I FAOR 




0156 


00225 


3363 




DCA 


FAQR 




0157 


00226 


1 363 




TAO 


FAOR 




0160 


00227 


3114 




OCA 


THP 


/SAVE ADDRESS FOR FUTURE USE 


0161 


00230 


1763 




TAO 


I FAOR 




0162 


00231 


3113 




DCA 


OPE 




0163 


00232 


2363 




ISZ 


FAOR 




0164 


00233 


1763 




TAO 


I FAOR 




0165 


00234 


3122 




OCA 


OPH 




0166 


00235 


2363 




ISZ 


FAQR 




0167 


00236 


1763 




TAO 


I FAOR 




0170 


00237 


3121 




DCA 


OPL 


/LOAD OPERAND 


0171 


00240 


3120 




DCA 


OPQ 


/AND ZERO OVFLO WD 


0172 






FPGOTQb 








0173 


00241 


1177 


AH , 


TAO 


C0 


/RESERVE LOC 177 


0174 












/SHIFT AC LEFT 1 


0175 


00242 


1115 




TAO 


ACO 




0176 


00243 


7104 




CLL 


RAL 




0177 


00244 


3115 




OCA 


ACO 




0200 


00245 


1116 




TAO 


ACL 




0201 


00246 


7004 










0202 


00247 


3116 




OCA 


ACL 




0203 


00250 


1117 




TAD 


ACH 




0204 


00251 


7004 




RAL 






0205 


00252 


3117 




OCA 


ACH 




lA 9 01 fii 




h H A 1 




Jwp 


I Aui 




0207 


00254 


1114 


FPOPER, 


TAO 


TMP 


/OPR 0 «EXIT F,P. PACKAGE 


an * a 

il « X V 


<y v f. v v< 


7 45™ 




Cju * 






0211 


00256 


5577 




JMP 


I FPT 





0212 


00257 


1222 




3213 


tf026fc? 


32e>2 




^214 


00261 


1117 




'4215 


00262 


74«*2 


FPSKIP, 


^21 b 


00263 


2177 




0217 


00264 


52^0 




0220 


00265 


1114 


FPJMP, 


53221 


00266 


3177 




8222 


00267 


5200 




0224 


00270 


1112 


FPSTQ, 


3224 


00271 


3514 




0225 


00272 


1117 




6322b 


00273 


2114 




0227 


00274 


3514 




3230 


00275 


1116 




0231 


00276 


3763 




0232 


00277 


52^fc 




3233 


00300 


1121 


FPLAC, 


2234 


00301 


3116 




3235 


00302 


1182 




0236 


00303 


3117 




0237 


00304 


1113 


FPL ACE , 


0240 


00305 


3112 




0241 


00306 


1U7 


ANGRM, 


0242 


00307 


7450 




0243 


00310 


1116 




0244 


00311 


7450 




0245 


00312 


1115 




024(§ 


00313 


7650 




0247 


00314 


5361 




0250 


00315 


7332 


NORMLP t 


0251 


00316 


1117 




0252 


00317 


7440 




0253 


00320 


5323 




0254 


00321 


1116 




0255 


00322 


7640 




0256 


00323 


7710 




0257 


00324 


5230 




0260 


00325 


4241 




0261 


00326 


7240 




0262 


00327 


1112 




3263 


00330 


3112 




0264 


00331 


5315 




0265 


00332 


0531 




0266 


00333 


M462 




0267 


00334 


0416 




0270 


00335 


1417 




0271 


00336 


0300 




0272 


00337 


3270 




0273 


00340 


2265 




0274 


00341 


0254 




0275 








0276 








0277 









TAD FPSrvL 




DCA FPSKIP 


/OTHERWISE SAME AS PDP-8 CODE 


TAQ AC* 




HLT 




ISZ FP r 


/EXCEPT SKIP CONDITION REVERSED 


JMP F76PI0 




TAD T»P 




OCA FPT 




JMP F7600 


/FLOATING JUMP 


TAD ACE 




DCA I TMP 




TAD ACH 




ISZ TMP 




DCA I T*P 




TAD ACL 




DCA I FAPR 


/REMEMBER FADR?? 


JMP F76?.0 




TAD OPL 




OCA ACL 


/THIS LOC JUMPED TO FROM PAGE 2 


TAD OPH 




DCA ACH 




TAD OPE 




DCA ACE 


/BECAUSE FPLAC IS JUMPED TO, FALL THROUG 


TAD ACH 




SNA 




TAD ACL 




SNA 




TAD ACQ 




SNA CLA 


/IF FRACION IS ZERO, 


JMP AOCEXP 


/ZERO EXPONENT 


CLA CLL CML 


RTR /2000 


TAD ACH 




SZA 


/IF ACH»6000, 


JMP ,+3 




TAD ACL 


/AND ACL»0 HERE DONE 


SZA CLA 




SPA CLA 


/OTHERWISE *ERE DONE WHEN ACHC0)<>ACHU) 


JMP F7600 




JMS ALl 


/LEFT SHIFT AC ONE PLACE 


CLA CM A 




TAD ACE 




DCA ACE 


/REDUCE EXPONENT 


JMP NORMLP 


/KEEP GOING 


FPOIV 


Z7000 


FPMUL 


Z6000 


FPSUB 


Z5000 


FP ADO 


Z4000 


FPLAC 


Z3000 


FPSTO 


Z2000 


FPJMP 


Z1000 


FPQPER 


Z000B FEXIT 




Z0010 FNOP 




Z0020 FSNA 




Z0030 FSZA 



3300 












/0060 FSPA 


3301 












Z0070 FSNA 


03g<2 












/0120 FSPASNA 


0303 












/0130 FSMASZA 


3304 


00342 


0000 


ARl , 


0 




/RIGHT SHIFT AC ONE PLACE 


0305 


00343 


7330 




CLA 


CLL 




0306 


00344 


1117 




TAD 


ACH 




0307 


00345 


7310 




SPA 






031 0 


00346 


7020 




CHL 






0311 


00347 


7010 




RAR 






0312 


00350 


3117 




DC A 


ACH 




0313 


00351 


1116 




T AO 


ACL 




0314 


00352 


7010 




RAR 






0315 


00353 


3116 




OCA 


ACL 




0316 


00354 


7010 




RAR 






0317 


#0355 


oi 15 




UCA 


aCQ 


/Onut Save unE »i i ui* u vtnr luw wukd 


0320 


00356 


2112 




ISZ 


ACE 




0321 


00357 


0120 


PQPU, 


OPO 






0322 


00360 


5742 


FPJUMP, 


JMP 


I API 




0323 


00361 


3112 


AQCEXP, 


OCA 


ACE 




0324 


00362 


52«0 




J*P 


F7600 


/ZERO EXPONENT AND GET NEXT INST. 


0323 






FADR«, 








0326 


00363 


0000 


FNEGX, 


0 




/TRIPLE-WORD NEGATION 


0327 


00364 


1357 




T AO 


POPO 




0330 


00365 


3241 




DC A 


AL1 


/ACs0 OR -3 ON ENTRY 


0331 


00366 


7346 




CLA 


CLL CM 


KTL 


0332 


00367 


3342 




OCA 


ARl 




0333 


00370 


7024 


N&GLP* 


CKL 


RAL 




0334 


00371 


1641 




TAD 


I AL1 




0335 


00372 


7141 




cll 


CIA 




0336 


00373 


3641 




DC A 


I AH 




0337 


00374 


2241 




ISZ 


AL1 




0340 


00375 


2342 




ISZ 


ARl 




0341 


00376 


5370 




JMP 


NEGLP 




0342 


00377 


5763 




JKP 


I FNEGX 





0343 








EJECT 


0344 








ORG 


4C*vl 


0345 


00400 




QADD, 


0 




0340 


00401 


7\u% 




CLL 




0347 


00402 


1120 




T AO 


OPO 


3350 


00403 


1115 




TAD 


ACQ 


3351 


00404 


3115 




OCA 


ACO 


(3352 


00405 


7«5?!4 




RAL 




0353 


00406 


1121 




T AQ 


OPL 


0354 


00407 


1116 




TAD 


ACL 


0355 


00410 


3116 




OCA 


ACL 


$4356 


00411 


7lji?4 




RAL 




0357 


00412 


1122 




TAD 


OPH 


0360 


00413 


1117 




TAD 


ACM 


0361 


00414 


3117 




DC A 


ACM 


0362 


00415 


56ee 




JMP 


I OADD 


0363 


00416 


4775 


FP5UB, 


JMS 


1 PNEG 


0364 


00417 


1122 


FPAPD, 


TAD 


QPM 


0365 


00420 


7652 




SNA 


CLA 


0366 


00421 


5774 




JMP 


I PANOKM 


0367 


00422 


1117 




TAD 


ACM 


0370 


00423 


7650 




SNA 


CLA 


0371 


00424 


5241 




JMP 


D0A0DS+2 


0372 


00425 


1112 


FPADUP, 


TAD 


ACE 


0373 


00426 


7141 




CIA 


CLL 


0374 


00427 


1113 




TAD 


OPE 


0375 


00430 


7450 




SNA 




0376 


00431 


5237 




JMp 


OOADDS 


0377 


00432 


7500 




SMA 




0400 


00433 


4776 




JMS 


I PAR 1 


0401 


00434 


7710 




SPA 


CLA 


0402 


00435 


4243 




JMS 


OR 1 


0403 


00436 


5225 




JMP 


FPADLP 


0404 


00437 


4243 


OOADDS, 


JMS 


OR1 


0405 


00440 


4776 




JMS 


I PARI 


0406 


00441 


Azm 




JMS 


OADO 


0407 


00442 


b?27 




JMP 


I PFPLCE 


0410 


00443 


#000 


QR1, 


0 




0411 


00444 


7300 




CLA 


CLL 


0412 


00445 


1122 




TAD 


OPH 


0413 


00446 


7510 




SPA 




0414 


00447 


7020 




CML 




0415 


00450 


7010 




RAR 




0416 


00451 


3122 




DC A 


OPH 


0417 


00452 


1121 




TAD 


OPL 


0420 


00453 


7010 




RAR 




0421 


00454 


3121 




OCA 


OPL 


0422 


00455 


7010 




RAR 




0423 


00456 


3120 




DC A 


OPO 


0424 


00457 


2113 




ISZ 


OPE 


0425 


00460 


0000 


FITCNT, 


0 




0426 


00461 


5643 




J MR 


I OR1 


0427 


00462 


1122 


FPtfULi 


TAD 


OPH 



/SECOND PAGE OF FLOATING POINT 
/ADD OP TO AC 



/QPs0 - NOP 



/AC«0 - SET AC TO OP 



/COMPARE AC EXP TO OP EXP 
/EQUAL - GO ADD 

/QPE»ACE 

/ACE>OPE 

/UNNORMALIZE BOTH 8Y ONE PLACE 

/SET ACE*OPE (IN CASE AC WAS 0) 
/SHIFT OPERAND RIGHT ONE PLACE 



/OP OVFLO HQ 



0430 


00463 


/650 




SNA 


CLA 




£3431 


00464 


5773 




JMP 


I PPPLAC 




0432 


00465 


1117 




T AO 


ACH 




0433 


00466 


7650 




SNA 


CLA 




0434 


00467 


5774 




JMP 


I PANORM 


/EITHER ARG«0 MEANS RESULTS 


043S 


00470 


1112 




TAD 


ACE 




0436 


00471 


1113 




TAD 


OPE 




0437 


00472 


3113 




OCA 


ORE 




0440 


00473 


1117 




TAD 


ACM 




0441 


00474 


3243 




DC A 


OR i 




0442 


00475 


1116 




TAD 


ACL 




0443 


00476 


3114 




DC A 


TMP 




0444 


00477 


1330 




TAD 


FM3? 


/ITERATION COUNTER 


0445 


00500 


3260 




DC A 


FITCNT 




0446 


00501 


3117 




OCA 


ACH 




0447 


00502 


3116 




OCA 


ACL 




0450 


00503 


7100 




cut 






0451 


00504 


5314 




JMP 


FPMDCD 




0452 


00505 


4776 


FPMLLP, 


JMS 


I PARI 


/RIGHT SHIFT AC ONE PLACE 


0450 


00506 


i24o 




TAD 


Ok i 




0454 


00507 


7010 




RAR 






0455 


00510 


3243 




OCA 


QR1 




0456 


00511 


1114 




TAD 


TMP 




0457 


00512 


7010 




RAR 






0460 


00513 


3114 




DCA 


TMP 


/RIGHT SHIFT MULTIPLIER 


0461 


00514 


1114 


FPMDCD, 


TAD 


TMP 




0462 


00515 


7004 




RAL 






0463 


00516 


7*0 1 




IAC 






0464 


00517 


7012 




RTR 






0465 


00520 


7620 




SNU 


CLA 


/D0E5 BIT SHIFTED OUT ■ NEXT BIT? 


0466 


00521 


5324 




JMP 


FMNOAD 


/YES - DO NOTHING 


0467 


00522 


4775 




JMS 


I PNEG 


/NEGATE MULTIPLICAND 


0470 


00523 


4200 




JMS 


0 ADD 


/ADD TO PRQUUCT 


0471 


00524 


2260 


FMNOAD, 


ISZ 


FITCNT 




0472 


00525 


5305 




JMP 


FPMLLP 




0473 


00526 


5727 




JMP 


I . + 1 


/NOW GO SET ACE « OPE 


0474 


00527 


0304 


PFPLCE, 


FPLACE 




0475 


00530 


7750 


F*30, 


-30 






0476 


00531 


1122 


FPDIV, 


TAD 


OPH 




0477 


00532 


7450 




SNA 






0500 


00533 


S773 




JMP 


I PFPLAC 


/DIVIDE BV ZERO RESULTS IN ZERO! 


0501 


00534 


77*0 




SMA 


CLA 


/CHECK DIVISOR SIGN 


0502 


00535 


5340 




JMP 


• +3 




0503 


00536 


7346 




CIA 


CLL CM A RTL 


/IF NEGATIVE, 


0504 


00537 


4775 




JMS 


I PNEG 


/NEGATE AC 


0505 


00540 


4776 




JMS 


I PARI 


/UNNORMALIZE DIVIDEND ONE PLACE 


0506 


00541 


1113 




TAD 


OPE 




0507 


00542 


7041 




CIA 






0510 


00543 


1112 




TAD 


ACE 




0511 


00544 


3113 




DCA 


OPE 


/SET UP RESULTANT EXPONENT 


0512 


00545 


1330 




TAD 


FM3&! 




0513 


00546 


3260 




DCA 


FITCNT 


/SET UP ITERATION COUNT 


0514 


00547 


1117 




TAD 


ACH 




0515 


00550 


7004 




RAU 




/INITIALIZE LINK 



£515 


£#551 


72 IK 


FPUVLP, 


CUA 


RAP 


/GET 


DIVIDEND SIGN FROM LINK AFTER LEFTS 


0517 


00552 


1 122 




T*0 


OPh 






3520 


00553 


am 




SfcA 


CLA 


/DOES 


DIVIDEND SIGN * DIVISOR SIGN? 


0521 


00554 


4775 




JF'S 


I PNEG 


/YES 


- NEGATE DIVISOR 


0522 


0K555 


4 2 




JHS 


UAOD 


/ADC) 


DIVISOR TO DIVIDEND 


54523 


^0556 


1112 




TAO 


ACE 






0524 


00557 


7s**4 




PAL 




/ADD 


CARRY INTO QUOTIENT 


«525 


08566* 


311.2 




DC A 


ACE 






0526 


00561 


1114 




TAO 


ThP 






0527 


00562 


7204 




PAL 








4553? 


00563 


3114 




DC A 


THP 






0531 


00564 


4777 




JMS 


I PALI 


/LEFT 


SHIFT DIVIDEND 


0532 


00565 


2260 




ISZ 


FITCNT 






0533 


550566 


5351 




JMP 


FPOVLP 


/LOOP 




9534 


00567 


1114 




TAO 


TMP 






3535 


00570 


3122 




OCA 


OPH 






3536 


00571 


1112 




TAO 


ACE 






0537 


00572 


5773 




JHP 


I . + 1 






054*> 


00573 


&301 


PFPLAC, 


FPLAC+1 


/PUT 


RESULT INTO AC 


0541 


00574 


03i36 


P A N 0 R M | 


ANQRM 






0542 


00575 


£363 


PNtGi 


FNEGX 






0543 


00576 


0342 


PARI, 


AR 1 








0544 


00577 


0241 


PALI, 


AL1 









0545 EJECT 

0546 CPLBUF360tf3 

0547 LINEb62^ 

0550 USETBLs6340 

0551 6INARY*6400 

0552 SQURCE«7000 

0553 P0LBUFs7400 

0554 USEB«14 

0555 BlNARB* 1 5 

0556 SOURCBsje 

0557 PAGE 



0560 


00600 


7240 


NEXTST, 


CLA 


CM A 




/CHECK PASS NUMBER 


0561 


00601 


1056 




TAD 




PAS5N0 




0562 


00602 


7650 




SNA 


CLA 






0563 


00603 


5222 




JMP 




START 


/IF PASS 1 THEN NO LISTING 


0564 


00604 


1061 




TAD 




LISTSW 


/CHECK LIST STATUS 


0565 


00605 


7650 




SNA 


CLA 






0566 


00606 


5222 




JMP 




START 


/NO, OONT LIST 


0567 


00607 


1363 




TAD 




QUTSWT 


/DID THIS LINE bfcNfcKATt OUTPUT? 


0573 


00610 


7640 




SZA 


CLA 






0571 


00611 


5222 




JMP 




START 


/YES, NO PRINT NECESSARY 


3572 


00612 


4576 




JMS 


I 


tPRINTC 


/PRINT CR/LF 


0573 


00613 


1060 




TAG 




LINENO 


/PRINT LINE NUMBER 


0574 


00614 


4575 




JMS 


I 


tOCTOUT 




0575 


00615 


1174 




TAD 




E247 




0576 


00616 


4576 




JMS 


I 


CPR1NTC 


/THEN TAB 


0577 


00617 


1174 




TAD 




£247 


/ANOTHER TAB 


0600 


00620 


4576 




JMS 


I 


CPRINTC 




0601 


00621 


4777 




JMS 


I 


CPRNTLN 


/THEN PRINT LINE 


0602 


00622 


4573 


START, 


JMS 


I 


CGETCHR 


/ANY MORE CHARS ? 


0603 


00623 


5226 




JMP 




NOTEG 




0604 


00624 


4572 




JMS 


I 


CERMSG 


/EXTRA GARBAGE ON LAST LINE 


0605 


00625 


0507 




0507 




/*EG* 


0606 


00626 


1064 


NOTEG, 


TAD 




SCSWT 


/DID LAST LINE END WITH SEMICOLO 


0607 


00627 


7650 




SNA 


CLA 






0610 


00630 


5235 




JMP 




.+5 


/NO 


0611 


00631 


3064 




DC A 




SCSwT 


/KILL SC SNITCH 


0612 


00632 


2017 




ISZ 




CHRPTR 


/SKIP OVER SEMICOLON 


0613 


00633 


2020 




ISZ 




NCHARS 




0614 


00634 


5776 




JMP 


I 


C ASMBL 


/DONT READ NEW LINE 


0615 


e-0635 


1171 




TAD 




CLINE-1 


/RESET POINTER 


0616 


00636 


3017 




DC A 




CHRPTR 




3617 


00637 


1375 




TAD 




C-137 


/95 CHARACTERS ONLY 


062'? 


00640 


3066 




DC A 




MAXLIN 




0621 


00641 


3063 




DCA 




OUTSWT 


/CLEAR OUTPUT SWITCH 


0622 


00642 


3361 




DCA 




LTMSG 


/SET LT MESSAGE SWITCH 


0623 


00643 


2024 


RQLOQP, 


ISZ 




CHRCNT 


/ANY MORE CHARS IN THIS BLOCK? 


0624 


00644 


5274 




JMP 




NOREAD 


/YES, GO GET IT 


0625 


00645 


1335 




TAD 




M1000 


/NUMBER OF CHARS PER BLOCK 


55626 


00646 


3024 




DCA 




CHRCNT 




0627 


00647 


1 170 




TAD 




[SOURCE 


/SOURCE FILE BUFFER 


063^ 


00650 


3362 




OCA 




wnpTR 


/ TNTQ POINTER 


0631 


00651 


3360 




OCA 




ODDEVN 


/START WITH EVEN CHAR 



0632 


00652 


llfc'5 




T AO 


SBLC-CK 


/FIND BLOCK NUMBER 


0633 


00653 


11 ^6 




T AO 


SFUDGE 




0634 


00654 


3270 




DCA 


RDfciLOK 




0635 


00655 


1187 




TAO 


STAR20 


/CHECK FOR FIRST READ 


13636 


00656 


7640 




SZA CLA 






0637 


00657 


5265 




JHP 


.♦6 




0649 


00660 


2107 




ISZ 


STAR20 


/SET SWITCH 


0641 


00661 


1374 




TAO 


C-774 


/IGNORE FIRST FOUR CHARACTERS 


0642 


00662 


3324 




DCA 


CHRCNT 




0643 


00663 


1373 




TAO 


(SOURCE+2 


/SKIP FIRST TWO WORDS 


3644 


00664 


3362 




DCA 


wOPTR 




0645 


00665 


4501 




JMS I 


DIALRD 


/DIAL READ 


0646 


00666 


0000 


skcu*t# 


0 




/SOURCE UNIT 


0647 


00667 


8016 




SOURCB 




/CORE LOC OVER 256 


0650 


00670 


0000 


RQBLOK, 


0 




/BLOCK NUMBER 


0651 


00671 


0001 




1 




/NUMBER OF BLOCKS 


0652 


00672 


7zm 




CLA 




/OOES DIAL RETURN ZERO AC? 


0653 


00673 


2105 




ISZ 


S8LCCK 


/INCREMENT RELATIVE BLOCK NUMBER 


0654 


00674 


1360 


NGREAD, 


TAO 


ODDEVN 


/WHICH CHAR? 


0655 


00675 


7640 




SZA CLA 






0656 


00676 


5330 




JMP 


ODDCHR 


/ODD ONE 


0657 


00677 


2360 




ISZ 


ODDEVN 


/FLIP SWITCH 


0660 


00700 


1762 




TAD I 


WDPTR 


/GET EVEN CHAR 


0661 


00701 


7012 




RTR 






0662 


00702 


7012 




RTR 






0663 


00703 


7012 




RTR 






0664 


00704 


0167 


DQCHR, 


AND 


177 


/SIX BITS 


0665 


00705 


7450 




SNA 




/ZERO IS EOF 


0666 


00706 


5772 




JHP I 


(ENDX 


/SO DO "END" 


0667 


00707 


1166 




TAO 


C-43 


/DIAL CR 


0670 


00710 


7450 




SNA 






0671 


00711 


5334 




JMP 


ENDLIN 


/BUMP LINE NUMBER 


0672 


00712 


1371 




TAD 


(3 


/CONVERT TO ASCII 


0673 


00713 


7510 




SPA 






0674 


00714 


1165 




TAD 


ciae 




0675 


00715 


1164 




T AO 


C240 




0676 


00716 


34 J7 




DCA I 


CHRPTR 




0677 


00717 


2066 




ISZ 


HAXLIN 


/TEST FOR LINE TOO LONG 


0700 


00720 


5243 




JMP 


RDLOOP 


/PUT CHAR AWAY AND GET NEXT 1 


0701 


00721 


7240 




CLA CM A 






0702 


00722 


3066 




DCA 


MAXLIN 


/IGNORE REST OF LINE 


0703 


00723 


7240 




CLA CM& 






0704 


00724 


1017 




TAD 


CHRPTR 


/BACK UP BUFFER 


0705 


00725 


3017 




DCA 


CHRPTR 




0706 


00726 


2361 




ISZ 


LTMSG 


/SET SWITCH 


0707 


00727 


5243 




JMP 


RDLOOP 




0710 


00730 


3360 


QQDCHR, 


DCA 


ODDEVN 




0711 


00731 


1762 




TAD I 


*DPTR 


/GET ODD CHAR 


0712 


00732 


2362 




ISZ 


WDPTR 


/BUMP WORD POINTER 


0713 


00733 


5304 




JMP 


OOCHR 




0714 


00734 


2060 


ENDUN, 


ISZ 


LINENO 


/BUMP LINE NUMBER 


0715 


00735 


705*0 


M1E00, 


NOP 






0716 


00736 


I960 




TAD 


LlNtNO 




0717 


00737 


7421 




7421 




/PUT LINE num INTO mq 



072C5 00740 7200 

0721 88741 H17 

0722 00742 7440 

0723 03743 1171 

0724 00744 3420 

0725 00745 7001 

0726 00746 102tS 

0727 00747 3023 

0730 00750 1171 

0731 00751 3017 

0732 00752 1361 

0733 00753 7650 

0734 00754 5776 

0735 00755 4572 

0736 00756 i424 

0737 00757 5776 
0740 

0741 00760 0000 ODDEVN, 

0742 00761 0000 LTMSG, 

0743 00762 <W0 fcDPTR, 



CL A 






T AO 




CHKr T K 


U "> A 






TAD 




f i TLC.t 

IL INt« 1 


OCA 




NCHAR5 


I AC 






TAD 






DC A 




t t ij e t i 

IIN5XZ 


TAD 




CLINE-1 


DCA 




CHRPTR 


TAD 




LTflob 


SNA 


CLA 




JMP 


I 


CASHBL 


JUS 


I 


CERMSG 


1424 






JMP 


I 


(ASHBL 


MAXL IN»LTEMP 



0 
0 
0 



/NO BUG ON NON-MO MACHINES 
/FIND - NUMBER OF CHARS - 1 



/SAVE SIZE OF LINE FOR PRINT 



/SET POINTER 

/CHECK FOR LINE TOO LONG MESSAGE 
/NONE, OK 

/PRINT LINE TOO LONG MESSAGE 



£3744 EJECT 





£077 1 


(rl / /. 3 














0 0 7 7 2 


4 § i - g 














00773 


7 0 '.<; 2 














00774 


7 0 f ' 4 














00775 


764 1 














00776 


1 %j r « f . 














00777 


2 0 & 0 












3745 








PAGE 






0746 


01000 


4573 


A 6 M B L f 


JMS 


x 


tGETCHR 


/LOOK FOR A CHARACTER 


0747 


01001 


5563 




jmp 


I 


tNEXTST 




8750 


01002 


ling 




TAD 




[-257 


/IS IT SLASH ? 


0751 


V * ft* V 


745tf 




SNA 








53752 


?J * %J %i ™ 


5220 




JMP 




NO ASM 


/YES. COOL IT 


■3753 


01005 


1377 




TAD 




t 257-244 


/IS IT $ 


$754 


01006 


7450 




SNA 








3755 


01007 


5223 




JHP 




ISOOLR 




0756 


01010 


1376 




T AO 




f 244-240 


/IS IT BLANK OR TAB ? 


0757 


01011 


7650 




SNA 


CLA 






0760 


01012 


5200 




JHP 




ASMBL 


/YES. TRY AGAIN 


0761 


01013 


4561 




JMS 


I 


£BACK 1 


/NQ» PUT IT BACK 


^762 


01014 


4560 




JMS 


I 


r CKK ILL 


/CHECK FOR ABORT 


$763 


01015 


1057 




TAD 




aSMOF 


/IS ASSEMBLY SWITCHED OFF ? 


$764 


01016 


7650 




SNA 


CLA 






0765 


01017 


5775 




JMP 


I 


CLUN AME 


/ASSEMBLE STMT 


0766 


01020 


7240 


NQ ASM f 


CLA 


CMA 






0767 


01021 


3#20 




OCA 




NCHARS 


/DQNT ASSEMBLE THIS L IMF 


0770 


01022 


5563 




JMP 


I 


CNEXTST 


/(PREVENTING *EG* MESSAGE! 


077 1 


01023 


3*557 


ISOOLR 1 

* W W V S» * 1 f 


OCA 




ASMOF 


/TURN ASSEMBLY BACK ON fIF IT WA 


0772 


01024 


5563 




JMP 


I 


[NEXTST 




077 3 


01025 


0000 


OVERS f 


0 






/DIVIDE AC BY THREE 


0774 


01026 


3070 




OCA 




EXTMP2 


/MQ 


0775 


01027 


1374 




TAO 




C-15 


/SET SHIFT COUNT 


0776 


01030 


3066 




OCA 




LTEMP 




0777 


01031 


7100 


DIVLUPi 


CLL 

bjn Im 






/ZERO LINK 


1000 


01032 


1373 




TAQ 




V w 


/SUBTRACT OIVISOR FROM AC 


1001 


01033 


7430 




S2L 






/IF AC>«3 SFT LINK TO 1 


1002 


01034 


5237 




JMP 




- +3 


/OK. DONT RESTORE 


1003 


01035 


1372 




TAO 




C3 


/TOO SMALL. RESTORE AC 


1004 


01036 


7 100 




CLL 






/SET LINK BACK TO 0 


1005 


01037 


3067 




OCA 




EXTMP 


/SAVE AC 


1006 


01040 


1070 




TAD 




EXTMP2 


/ROTATE MQ-AC LEFT. PUT LINK INT 


1007 


01041 


7004 




RAL 








1 H 1 0 


01042 


3070 




OCA 




EXTMP2 


/SAVE 


1011 


01043 


1 067 




TAO 




EXTMP 


/GET BACK AC 


1012 


01044 


7004 




RAL 






/COMPLETE SHIFT 

/ bVllir bb 1 b unit I 


1013 


01045 


2066 




ISZ 




LTEMP 


/TEST COUNT 


1014 


01046 


5231 




JMP 




DIVLU* 


/KEEP GOING 


1015 


01047 


3067 




OCA 




EXTMP 


/THIS IS REMAINDER 


1016 


01050 


1370 




TAQ 




EXTMP2 


/RETURN QUOTIENT 


1017 


01051 


5625 




JMP 


I 


0VER3 




1020 


01052 


0000 


QCTOUT, 


0 








1021 


01053 


3005 




OCA 




QTEMP 


/SAVE «ORD 



1022 


01054 


1 157 




TAD 




C»4 




1023 


01055 


3006 




DC A 




QCNT 


/FOUR DIGITS 


1024 


01056 


1005 


OLOQP, 


TAD 




OTEMP 




1025 


01057 


71S?6 




CLL 


RTL 






1026 


01060 


7004 




RAL 








1027 


01061 


3005 




DCA 




OTEMP 


/SAVE SHIFTED WORD 


1030 


01062 


1005 




TAD 




OTEMP 




1031 


01063 


7004 




RAL 






/SHIFT REST OF THE WAY 


1032 


81064 


0156 




AND 








1033 


01065 


1155 




TAD 




C260 


/CONVERT TO ASCII 


1034 


01066 


4576 




JMS 


I 


CPRINTC 




1035 


01067 


2006 




ISZ 




QCNT 




1036 


01070 


5256 




JMP 




QLOOP 




1037 


01071 


1164 




TAD 




[240 


/PRINT BLANK 


1040 


01072 


4576 




JMS 


I 


CPRINTC 




1041 


01073 


5652 




jMP 


I 


OCTOUT 




1P42 


01074 


4561 


ENDEXP » 


JMS 


I 


[BACK 1 


/END OF EXPR, PUT BACK CHAR 


1043 


01075 


1 100 




TAD 




LITRL 


/LITERAL ? 


1044 


01076 


7640 




SZA 


CL A 






1045 


01077 


4771 




JMS 


I 


(CRLIT 


/GO CREATE LITERAL 


1046 


01 100 


1040 




TAD 




EXPSW 


/DONT SKIP IF NO EXPRESSION 


1047 


01101 


7640 




SZA 


CUA 






1050 


01 102 


5770 




JMP 


I 


(BAD 


/BECAUSE ITS AN ERROR 


1051 


01103 


1055 




TAD 




LASTOP 


/WAS THERE A TRAILING OPERATOR 


1052 


01104 


7450 




SNA 








1053 


01105 


5767 




JMP 


I 


COKEXP 


/NO# JUST RETURN 


1054 


01106 


1366 




TAO 




C»l 


/WAS IT PLUS ? 


1055 


01107 


7450 




SNA 








1056 


01110 


1050 




TAO 




XINCR 


/AND IS IT LEGAL 1 


1057 


01111 


7650 




SNA 


CLA 






1060 


01112 


5767 




JMP 


I 


COKEXP 


/YES TO BOTH 


1061 


01113 


5770 




JMP 


I 


(BAD 




1062 


01114 


4554 


LITQRX , 


JMS 


I 


CADRGET 


/GET ORIGIN 


1063 


01115 


1030 




TAD 




LITRG1 


/PREVIOUS LITORG ? 


1064 


01116 


7700 




SMA 


CUA 






1065 


01117 


5563 




JMP 


I 


CNEXTST 


/YES, IGNORE THIS ONE 


1066 


01 120 


1035 




TAO 




EXPVAL+1 




1067 


01121 


0156 




AND 




C7 




1070 


01122 


3030 




DCA 




LITRG1 




1071 


01123 


1036 




TAD 




EXPVAU+2 




1072 


01124 


3031 




OCA 




UITRG2 




1073 


01125 


5563 




JMP 


I 


CNEXTST 





1074 EJECT 





01166 


7777 














01167 


2444 














01170 


24^5 














01171 


3v332 














01172 


tfi403 














01173 


7775 














01174 


7763 














01175 


12fc!0 














01176 


0004 














01177 


E013 












075 








PAGE 






6176 


01200 


1017 


LUNAME, 


TAD 




CHRPTR 


/SAV€ CHAR STUFF 


077 


01201 


3021 




DC A 




CPTMP 




100 


01202 


1020 




TAD 




NCHARS 




101 


01203 


3022 




DC A 




NCTHP 




102 


01204 


4553 




JMS 


I 


CGETNAM 


/LOOK FOR NAME 


103 


01205 


5754 




JMP 


I 


EXPGET 


/NONE, MIGHT BE EXPRESSION 


104 


01206 


4573 




JMS 


I 


CGETCHR 


/LOOK FOR COMMA 


105 


01207 


5343 




JMP 




JSTONE 


/ITS JUST ONE SYMBOL 


106 


01210 


1377 




TAD 




(-254 


/COMMA TEST 


107 


01211 


7440 




S2A 








110 


01212 


6246 




JMP 




TRYEQU 


/NO COMMA, CHECK FOR EQUAL 


111 


01213 


4552 




JMS 


I 


[LOOKUP 


/LOOK UP SYMBOL 


112 


01214 


5234 




JMP 




NEwLBL 


/ITS COMPLETELY NEK 


113 


01215 


7650 




SNA 


CLA 






114 


01216 


5237 




JMP 




DEFLBL 


/ITS UNDEFINED 


115 


01217 


1410 




TAD 


I 


X10 


/CHECK LOCCTR AGAINST OLD DEFINI 


116 


01220 


7041 




CIA 








117 


01221 


1026 




TAD 




LQCTR1 


/FIRST UPPERR HALF 


120 


01222 


7640 




SZA 


CLA 




121 


01223 


5231 




JMP 




• +6 




122 


01224 


1410 




TAD 


I 


X10 




123 


01225 


7041 




CIA 








124 


01226 


1027 




TAD 




L0CTR2 


/THEN LOWER HALF 


125 


01227 


7650 




SNA 


CLA 






126 


01230 


5244 




JMP 




DEFIND 




127 


01231 


4572 




JMS 


I 


CERMSG 


/MULTIPLY DEFINED 


130 


01232 


1504 




1504 




/*MO* 


131 


01233 


5776 




JMP 


I 


CASMBL 


/FIELD IS OK 


132 


01234 


7126 


NEWLBL, 


CLL 


CML 


RTL 


/BUMP NEXT BY 2 


133 


01235 


1016 




TAD 




NEXT 


/TO MAKE ROOM 


134 


01236 


3016 




DCA 




NEXT 


/FOR NEW SYMBOL 


135 


01237 


2466 


OEFLBL, 


ISZ 


I 


LTEKP 


/SET TYPE TO 1 CUSER ADDR) 


136 


01240 


1026 




TAD 




LOCTR1 


/PUT LOCATION COUNTER 


137 


01241 


3410 




DCA 


I 


X10 


/INTO VALUE 


140 


01242 


1027 




TAD 




L0CTR2 




141 


&1243 


3410 




DCA 


I 


X10 




142 


01244 


6201 


DEFIND, 


CDF 




FLD0 


/GO LOOK FOR ANOTHER TAG 


143 


01245 


5776 




JMP 


I 


(ASMBL 




144 


01246 


1375 


TRYEQU, 


TAD 




C-21 


/CHECK FOR EQUAL SIGN 


145 


01247 


7440 




SZA 








146 


01250 


5340 




JMP 




TRYBLK 


/NO, TRY BLANK 



1147 


01251 


1052 




TAD 




NAME! 




use 


01252 


3071 




DC A 




EQUN 


/SAVE 6 CHARACTER NAME 


1151 


01253 


1053 




TAD 




NAME2 




1152 


01254 


3072 




DC A 




EQUN+1 




1153 


01255 


1054 




TAD 




NAME 3 




1 154 


01256 


3073 




DCA 




EQUN+2 




1155 


01257 


1051 




TAD 




BUCKET 




1156 


01260 


3074 




DCA 




EQUN+3 




1157 


01261 


4551 




JMS 


I 


CEXPR 


/GET VALUE RIGHT OF EQUALS 


1160 


01262 


5326 




JMP 




EQUERR 


/BAD EQU 


1161 


01263 


1037 




TAD 




EXPTYP 


/IS EXPR UNDEFINED ? 


1162 


01264 


7650 




SNA 


CLA 






1163 


01265 


5563 




JMP 


I 


CNEXTST 


/YES, LEAVE SYMBOL UNDEFINED 


1164 


01266 


1071 




TAD 




EQUN 


/RESTORE NAME 


1165 


01267 


3052 




DCA 




NAME 1 




1166 


01270 


1072 




TAD 




EQUN+1 




1167 


01271 


3053 




DCA 




NAME2 




1170 


01272 


1073 




TAD 




EQUN+2 




1171 


01273 


3054 




DCA 




NAME3 




1172 


01274 


1074 




TAD 




EQUN+3 




1173 


01275 


3051 




DCA 




BUCKET 




1174 


01276 


4552 




JMS 


I 


[LOCKUP 


/LOOKUP SYMBOL 


1175 


01277 


5331 




JMP 




NEWSYM 


/NEW SYMBOL 


1176 


01300 


7450 




SNA 








1177 


01301 


7081 




IAC 






/REFNCD BUT UNDEF t ASSUME ADDR T 


1200 


01302 


7041 




CIA 








1201 


01303 


1037 




TAD 




EXPTYP 


/COMPARE TYPES 


1202 


01304 


7640 




SZA 


CLA 






1203 


01305 


5326 




JMP 




EQUERR 


/TYPE CONFLICT 


1204 


01306 


7144 


PUTVAL* 


CLL 


CM A 


RAL 


/-2 


1205 


01307 


1037 




TAD 




EXPTYP 


/GO TO PROPER PLACE 


1206 


01310 


7750 




SPA 


SNA 


CLA 




1207 


01311 


5314 




JMP 




M0V2WD 




1210 


01312 


1034 




TAD 




EXPVAL 


/F,P. SYMBOL 


1211 


01313 


3410 




DCA 


I 


X10 




1212 


01314 


1035 


MQV2W0, 


TAD 




EXPVAL+1 


/D.P, OR ADDRESS SYMBOL 


1213 


01315 


3410 




DCA 


I 


X10 




1214 


01316 


1036 




TAD 




EXPVAL+2 




1215 


01317 


3410 




DCA 


I 


X10 




1216 


01320 


1466 




TAD 


I 


LTEMP 


/NOW GET TYPE WORD 


1217 


01321 


0374 




AND 




C7740 


/ZERO OLD TYPE (PRESERVING FORCE 


1220 


01322 


1037 




TAD 




EXPTYP 


/PUT IN NEW 


1221 


01323 


3466 




DCA 


I 


LTEMP 


/RESTORE WORD 


1222 


01324 


6201 




CDF 




FLO0 




1223 


01325 


5563 




JMP 


I 


CNEXTST 


/GO GET NEXT STMT 


1224 


01326 


4572 


EQUERR, 


JMS 


I 


CERMSG 


/BAD EQU 


1225 


01327 


0205 




0205 




/*BE + 


1226 


01330 


5563 




JMP 


I 


ENEXTST 




1227 


01331 


7146 


NEWSYM, 


CLL 


CMA 


RTL 


/•3 


1230 


01332 


1037 




TAD 




EXPTYP 


/BUMP NEXT BY CORRECT NUMBER 


1231 


0 i 333 


7700 




SMA 


CLA 






1232 


01334 


2016 




ISZ 




NEXT 


/THRICE FOR FLOATING 


1233 


01335 


2016 




ISZ 




NEXT 


/TWICE FOR DP AND ADDRESS 


1234 


01336 


2016 




ISZ 




NEXT 





1235 


2J1337 


53*6 






PUTVAL 




1235 


id 134(9 


137 3 


TKYBLK, 


TAD 




/CHECK FOR BLANK 


1237 


05 1 34 1 


7os v> 




S2A CLA 






1240 


01342 


5754 




JhP I 


EXPGET 


/NO BLANK, GO TRY FOR EXPRESSION 


1241 


^1343 


4552 


JSTONE, 


JK5 I 


[LOOKUP 


/LOOKUP SYMBOL 


1242 


01344 


57 72 




JMP I 


CNfcfcUNE 


/ITS A NEw SYMBOL 


1243 


#1345 


1353 




TAD 


OPCTBL 


/CREATE JUMP THRU TABLE 


1244 


31346 


3352 




OCA 


OPCJHP 


/SAVE IT 


1245 


01347 


1410 




Tad i 


X1U 


/PICK UP FIRST WORD OF VALUE 


1240 


0135? 


3*M5 




OCA 


OPCODE 


/ITS AN QPCODE-MAYBE? 


1247 


01351 


62(tl 




CDF 


FLDfc 




1252 


01352 


V w p 0 


UPCJMP, 


0 




/JUMP SOMEWHERE 


1251 


^1353 


5754 


OPCTBL, 


JMP I 


. + 1 




1252 


01354 


14^3 


EXPGET, 


GETEXP 




/UNDEFINED 


1253 


01355 


14*3 




GETEXP 




/USER ADDRESS 


1254 


01356 


14*3 




GETEXP 




/USER DP 


1255 


01357 


1403 




GETEXP 




/USER FP 


1256 


01360 


1403 




GETEXP 




/POP 8 OPERATE 


1257 


01361 


1555 




PSEUDO 




/PSEUDO OP 


1260 


01362 


16*0 




PDP8MR 




/PDP6 MR 


1261 


41363 


1431 




FPPMR 




/FPPMR 


1262 


01364 


1534 




FPPS1 




/OTHER FPP OPCODES 


1263 


01365 


1637 




FPPS2 






1264 


211366 


1352 




FPPS3 






1265 


01367 


1647 




FPPS4 






1266 


01370 


1655 




FPPS5 






1267 


01371 


1473 




FPPMRL 




/FPP 2 *QRD MR FORMAT 



1270 EJECT 





01372 


1400 














01373 


0035 














01374 


7740 














01375 


7757 














01376 


1000 














01377 


7524 












1271 








PAGE 






1272 


01400 


3416 


NEWUNE, 


DC A 


I 


NEXT 


/RESERVE 2 WORDS 


1273 


01401 


3416 




DC A 


I 


NEXT 


/THUS ASSUMING ADDR TYPE 


1274 


01402 


625il 




CDF 




FLO0 




1275 


01403 


1821 


GETEXP, 


TAD 




CPTMP 


/RESTORE CHARACTER POINTER 


1276 


01404 


3017 




OCA 




CHKPTR 




1277 


01405 


1022 




tad 




NCTMP 


/TO JUST AFTER TAG (IF ANY) 


I30ia 


01406 


3*420 




DC a 




NCHARS 




1301 


01407 


4551 




JMS 


I 


EEXPR 


/TRY FOR AN EXPRESSION 


13^2 


01410 


5226 




JMP 




BADEXP 


/IF NONE. ERROR 


1303 


01411 


7144 




cll 


CM A 


RAL 




1304 


01412 


100? 




TAO 




fc X P T Y H 


/Cute* type 


1303 


01413 


7450 




SNA 








1306 


01414 


5221 




JMP 




0UT2WD 


/D,P,. OUTPUT 2 WORDS 


1307 


01415 


7710 




SPA 


CLA 






1310 


01416 


5223 




JMP 




OUT 1 WO 


/ADDRESS f OUTPUT 1 WORD 


1311 


01417 


1034 


0UT3W0, 


TAD 




EXPVAL 


/F.P., OUTPUT 3 WORDS 


1312 


01420 


4550 




JMS 


I 


EOUTWRD 




1313 


01421 


1035 


QUT2WD, 


TAO 




EXPVAL+i 




1314 


01422 


4550 




JMS 


I 


EOUTWRD 




1315 


01423 


1036 


QUT1WD, 


TAD 




EXPVAL+2 




1316 


01424 


4 550 




JMS 


I 


EOUTWRD 




1317 


01425 


5563 




JMP 


I 


ENEXTST 


/GO DO NEXT STMT 


1320 


01426 


4572 


SADEXP, 


JMS 


Z 


EERMSG 


/BAD EXPRESSION 


1321 


01427 


£230 




0230 






1322 


01430 


5563 




JMP 


I 


ENEXTST 


/DO NEXT STMT 


1323 


01431 


4547 


FPPMR, 


JMS 


I 


CCHKIND 


/CHECK FOR INDIRECT 


1324 


01432 


7201 




CLA 


IAC 




/SET SWITCH 


1325 


01433 


3047 




OCA 




INORCT 




1326 


01434 


4546 




JMS 


I 


CGETAOR 


/GO GET ADDRESS AND INDEX 


1327 


01435 


1077 




TAD 




FPP*D2 


/CHECK FOR FORCED 2 WORD ADDR 


1330 


01436 


7640 




SZA 


CLA 






1331 


01437 


5277 




JMP 




FORMTl 


/FORWD REFNCE, USE 2 WORD FORMAT 


1332 


01440 


1033 




TAQ 




BASER+1 




1333 


01441 


7161 




CLL 


CML 


CIA 


/COMPARE BASE WITH ADDR 


1334 


01442 


1044 




TAD 




FPPADR* 1 




1335 


01443 


3042 




DCA 




W0RD2 


/8Y DOUBLE SUBTRACTION 


1336 


01444 


7004 




PAL 








1337 


01445 


1032 




TAD 




BASER 




1340 


01446 


7041 




CIA 








1341 


01447 


1043 




TAD 




FPPADR 




1342 


01450 


7640 




SZA 


CLA 






1343 


31451 


3c f 




JMP 




i wn n i * 


/IF HIGH ORDER WORD NOT 0, LONG 


1344 


01452 


1047 




TAD 




INDRCT 


/IF INDIRECT, USE SHORTEST FORM 


1345 


01453 


7650 




SNA 


CLA 






1346 


01454 


5315 




JMP 




F0RMT3 





1347 


a 1455 


1046 




TAD 




INDEX 


/IF INDEX USED, MUST USE LONG 




01456 


7 6 «y 




SZA 


CLA 






1351 


01457 


tm 




JMP 




FQ*rri 




1352 


01460 


10 4? 




TAD 




W0KL2 


/COMPARE AODR-BASE 


1353 


PI 461 


7U>0 




CLL 








I35d 


01462 


1377 




TAD 




c-6e& 


/IF <« 128*3, CAN USE SHORT 


1355 


01463 


7630 




SZL 


CLA 






1356 


01464 


5277 




JMP 




PORMT1 


/OTHERWISE USE 2 WORD FMT 


1357 


01465 


1042 


K0khT2 f 


T AO 




W0RD2 


/DIVIDE DISPLACEMENT BY THREE 


1368 


01466 


4776 




JMS 


1 


C0VER3 




1361 


01467 


1 <d 4 5 




TAD 




opcode 


/ADD OPCODE TO DISPLACEMENT 


1362 


01470 


1145 




TAD 




[200 


/TURN ON A BIT 


1363 


01471 


4550 




JMS 


I 


COUTWRD 


/OUTPUT IT 


1364 


01472 


5563 




J MP 


I 


[NEXTST 




1365 


01473 


4547 


FPpf»KL, 


JMS 


I 


CCMKIND 


/CHECK FOR "I" [INDIRECT) 


1366 


01474 


72t 1 




CIA 


IAC 




/SET SWITCH 


1367 


01475 


304/ 




OCA 




INDRCT 




1370 


01476 


4546 




JMS 


I 


CGE1 ADR 


/GET ADDRESS FIELD 


1371 


01477 


1047 


FDhhTl, 


TAO 




INDPCT 


/CHECK FDR INDIRECT 


1372 


01500 


7640 




SZA 


CLA 




/IF INDIRECT t THIS IS A NO-NO 


1373 


01501 


53l?5 




JMP 




, + 4 




1374 


01502 


4 572 




JHS 


I 


IERM5G 


/ILLEGAL INDIRECT 


1375 


01503 


1111 




mi 






/*II* 


1376 


01504 


3047 




DC A 




INURCT 


/CLEAR SWITCH 


1377 


01505 


4544 




JHS 


i 


CFIXQPC 


/GO PUT IN INDEX AND INCREMENT 


1403 


01506 


1^43 




TAO 




FPPADR 


/SET ADDRESS EXTENSION 


H01 


01507 


£156 




AND 




17 




1402 


01510 


1045 




TAO 




OPCODE 


/PLUS OPCODE 


1403 


31511 


4550 




JHS 


I 


[QUTWRD 


/OUTPUT IT 


1404 


01512 


1044 




TAO 




FPPAQR+1 




1405 


01513 


4550 




JMS 


I 


[OUTwRD 


/THEN REST OF ADDRESS 


14*6 


01514 


5563 




JMP 


I 


[NEXTST 




14i*7 


31515 


1042 


F0RMT3, 


TAO 




WQRD2 


/TRY INDIRECT FORMAT 


1410 


01516 


7100 




CLL 








1411 


01517 


1143 




TAO 




t-3G 


/DISPLACEMENT CAN BE < OR * TO 


1412 


01520 


7620 




SNL 


CLA 






1413 


01521 


5325 




JMP 




• +4 




1414 


01522 


3042 




OCA 




WORD2 


/SET DISPLACEMENT TO 0 


1415 


01523 


4572 




JMS 


I 


CERMSG 


/ILLEGAL INDIRECT 


1416 


01524 


1111 




1111 






/*II* 


1417 


01525 


4544 




JMS 


1 


[FIXOPC 


/STICK IN INDEX AND INCR 


1420 


01526 


1042 




TAO 




W0RC2 


/GET DISPLACEMENT 


1421 


01527 


4776 




JMS 


I 


COVtR3 


/DIVIDE BY THREE 


1422 


01530 


1045 




TAO 




OPCODE 


/PLUS QPCOOE 


1423 


01531 


1145 




TAQ 




C20fc 


/PLUS ANOTHER BIT 


1424 


01532 


1550 




JMS 


I 


COUTWRD 


/OUTPUT 


1425 


01533 


5563 




JMP 


I 


[NEXTST 




1426 


01534 


4547 


FPPS1 , 


JMS 


I 


ICHKINO 


/WAS INDIRECT ASKED FOR ? 


1427 


01535 


5340 




JMP 




,+3 


/NO 


1430 


01536 


4572 




JMS 


I 


IER*SG 


/♦II* 


1431 


01537 


1111 




1111 








1432 


01540 


4546 




JMS 


I 


CGETADR 


/GET AOOR, AND INDEX 


1433 


01541 


4544 




JMS 


I 


[FIXOPC 


/PUT OPCODE TOGETHER 


1434 


01542 


1043 




TAO 




FPPAOR 


/GET ADOR EXTENSION 



1435 


0 1543 


P 1 56 




AM ft 




17 

V f 




1436 


55 1 544 


1 #45 




TAD 




OPCODE 


/WITH TOGETHER OPCODE 


1437 


01545 


if* 3 7 5 




AND 




(7377 


/WITHDRAW ONE BIT 


1440 


0 1546 






JMS 


I 


rnijT WRL 

V W 1 ™ l> (J 


/OUTPUT THIS 


1441 


0 1547 


1044 




TAO 




FPP AQR+ 1 




1442 


£155<? 


4550 




JHS 


I 


[OUTaRO 


/NOw OUTPUT REST OF ADDRESS 


1443 


01551 


5563 




JtfP 


I 


[NtXTST 




1444 


01552 


1045 


FPPS3, 


TAD 




OPCODE 


/JUST PUT OUT OPCODE 


1445 


01553 


4550 




JMS 


I 


COUTWRD 




1446 


131554 


5563 




JHP 


I 


t^EXTST 




1447 


01555 


5445 


PSEUOO, 


JMP 


I 


QPCOOE 


/GO HANDLE PSEUDO OP 



4 A Lk 


,* 1 K 7 ft 

lA 1 ft 7 7 
¥3 1 0 / / 


/ 0 / / 

1 * y ft 
i *< 2 0 

7 'J f? 




t J t L 1 














P ACit 






J AOs 


0 1 000 


/Oil 

* 2 / 1 


rlTOrlK, 


Jno 


LrMND 


/CHctK rQR INOIRtCT 




,7« K 01 4 

0 I OB 1 


0 2!' 0 




t ki a 
j ft r 


• +4 


/NQ 


4 A ft / 

1 404 


,il c n ft 


1 yl ft 

1 « « 0 




T a n 
1 AU 


iiDrnnc 
UrLLUt 


in 1 1 1 TxinTDCfT TAJTrt rtDPrtrtC 

/PUT INOIKfcCT INTO OPCODc 


J 4 D ~ 


1 owo 


1 < 7 7 
10// 




TAD 






I /I E£ 

1 «3D 


0 1 0 0 4 


0 0 4 0 






f J r L U U t 




4 A ft 7 


0 1 000 


«020 






AUKb t 1 


in T fl/ ilD HhfVDCCC CTFi r> 

/rICI\ UP ADORfcoo rltLD 


1 4 0 13 


51 1 ft ft ft 

*5 1 00 O 


4 !>l ft 




T A ft 

1 A U 


L V B 1, A 1 J. n 
t *r V AU. + 2 


/rulfk D A P C f\G ArtrtDCCC 

/LMtLK rAbt Ur AUUKtOO 




0100/ 


tt- 4 yl O 
fr> 1 4 2 




AND 


r "f ft 
[ / 0 0 




i VI & o 

1402 


f A 4 £ t 

01512 


/ 400 




SNA 








fA 1 ft 4 4 
K 1 0 1 1 


ft O ** ~i 

0200 






D A r ' C a 
r Abt 0 


/XTo IN PASc 0 


* At* A 
1 4 0 4 


|A 4 ft 4 O 

0 1 0 1 2 


7 ij( /■ 4 

/ a 4 1 




1* T A 

L 1 A 






4 A £ K 

1400 


rife 4 £ 4 T| 

$ I 6 1 o 


102/ 




T a 

TAD 


I rt f T D f\ 

LUC 1 K2 


/COnPAKt WITH CURKtNT PAGE 


1 aoo 


r» 4 ft 4 /i 
0 1 0 1 a 


0 1 «2 




AND 


r 7 ft o i j 
I / 0 !r ^3 




1 A ft 7 


ft 1 ft 1 K 

V3 i O 1 0 


7 ft ft i'X 
/ p D If! 




c tu a Pi a 
ON A LL A 






1 4 / V3 


i* 4 ft 4 ft 


K357 
0 22/ 




tun 

j n r* 


TLeC AT 

1 nor Aw» 


/rtl? ITS TUTQ DAPf 


1 / 1 


i> 1 ft 1 7 
if! 1 0 1 / 


1 i/S yi K 




T a it 
1 ALJ 


f i D f f - (\ £ 

UrtlUt 


/LAN »c U&t A LINK, f 


1 *»/ 2 


iji 1 (ton 
v 1 0 2 0 


l* "4 7 7 
1^0/ / 




A N J 


t 40C 


if e TkinTDCPT DTT rtki O 

/IS INQIKtCT BIT ON t 




t A 4 C O 4 

(6 1 0 2 1 


7 ft KM 
/ 000 




e l, « pi « 
ON A L L A 






\ AT A 
1 4/ <* 


rat 1 ft O 9 
If! 1 0 2 C. 


ft OO ft 
0220 




run 


n M f\ L "IK 


/Y.tO| b U nAKfc. LINK 


1 yl 7 ft 


Ill fiAl 

6? 1 020 


VI K7 o 
40/2 




J^"5 I 


L t K r- 0 la 


yAirtDC ttc i ii 1 1 i cr a i Dcccockirc 

/N0rt# ITS AN ILLtbAL RtrtRtNCt 


4 /I 7 ft 

14/0 


8 1 024 


4 4 1 O 

1122 




1 122 




/#IR# 


4/77 
14// 


fil 4 ft O ft 

0 1 020 


ft o 'i 

0200 




TUB 


I nor AU+ 1 




1 OWs? 


a 4 ft o ft 
If! 1 020 


a 7 7 ft 
4 / / 0 


n A !*< L N H f 




t r* a i r Ki tit 
t LNL 1 NK 


/uce POU'ATC 1 T Al fcf 

/JC9t CRtATfc LINK 


1 0li5 1 


ft 4 ft O 7 

0102/ 


1000 


1 nor Afa f 


T A rt 

TAD 


CT V Q \i A i _l. O 

tXrv AL+2 


/GET ADDRESS 


1002 


a 4 ft i a 


f* 4 /I 4 

0 141 




a k> n 


r 4 7 7 
L 1 / 7 


/LutocP 7 bITS 


1 Ofc«0 


Gt 4 ft 4 


4 4 A ft 

1140 




fin 

1 AU 


r o a ih 


/Out t k | nip p QTT 

/PUT IN PAbt BIT 


4 Kit a 
1 00 * 


a 4 ft 
0 1 002 


7 /J 4 ft 
/ 4 1 0 




C J □ 

ok r 






1000 


H 1 0 00 


4 * % ft 


rftbCKj f 


I AU 


L' V O U i 1 J. o 

tArv AL t2 


/prT ArtftOCCC fllDOCD ft QTTC 7ron^ 

/btl AUUKtOO [UPPtK 0 BITS LtHuj 


1000 


ft 4 ft 1 A 

01004 


4 iJ4 A ft 

1 £40 




T A n 
T AO 


n D r n n c 


yDi iic rtDCrtrtt? 
/PLUo OPCODE 


10g!/ 


ft 4 ft ft 

01000 


yi ft ft fA 
4 000 




J "S I 


i> ri i 1 T u D rt 
[UU 1 nKO 


/OUTPUT ^ORD 


1 ft. 1 M 

1 o 1 0 


n l 4E "l ft 
10 1 0O0 


ft ft ft 1 
0000 




t jvt Q T 

J "r J. 






(Ell 

1011 


0 100/ 


A ~K 1 

«020 


r r ro2 f 




ADKbtT 


/GET ADDRE5S rIELD 


4 S 4 O 

loig 


01040 


4 i j 1 K 

1000 




T A ft 

T AQ 


r u a i; ii » | 

t JtPV AL* 1 


/PUT EXTENSION 


1 Ki 1 

1010 


fl 4 ft A 4 

01041 


V 4 ft ft 

0 1 00 




ANU 


r 7 




1 Kl 1 

1014 


t i c in 
01042 


4 ili A ft 
1 0**O 




T A rt 

1 AO 


nDrnne 
UrLuUfc 


/WITH OPLODE 


ISlR 

1010 


fJl 4 ft A % 

01040 


yl ft ft r/i 
4 000 




f M C T 


f rt 1 I T ui rt 

tUU 1 WHO 


y rti IT 

/OUT 


4 K 4 ft 

1010 


ft 4 ft A A 

01044 


4 iA 1 ft 

1000 




T A i\ 

T AO 


t X r V AL + 2 




4 ft 4 7 
101/ 


ft 1 ft A K 

0 1 040 


yi ft K tit 
4 000 




J "S X 




intST rtC ArtrtO 

/RtoT Or ADDR 


4 Kora 
1 020 


fa 4 ft vJ ft 
010 40 


K ft ft 1 

0000 






. At f V T C T 

iNtX TS f 




I SOI 
1021 


ft 1 ft yl7 
0 1 0«»/ 


A 1 o ^ 
c 02 0 


COO Q. A 

r r ro4 ■ 


roe 
J no 


a no r c t 
AUn I? C 1 


/ CC T T AJ rt C V DEC CVDBCCS T flki 

/BET INDEX REG EXPRESSION 


4 ftOO 

1022 


Al liKl) 

0 1000 


i lite 
1000 




T a rt 

T AO 


t Xrv AL + 2 


/GET LOWER 3 BITS 


4 KOI 

10 2 0 


!» 4 ft K 4 
01001 


o i ft ft 
0 100 




A ki rt 

ANO 


17 


/Or INDEX REG EXPR 


4 KO yl 
1 3e 4 


ft 1 ft ft9 
0 1 002 


4 iA A ft 

J «3 4 0 




T A rt 

1 AU 


UrlUUt 


/UTTU nDPrtrtlT 

/WITH UrCUDt 


1525 


01653 


4550 




JMS I 


tOUTrtwD 


/OUT 


1526 


01654 


5563 




JMP I 


TST 




1527 


01655 


72!?1 


FPPS5, 


CLA IAC 




/SET INDEX INCR SWITCH OFF 


1530 


01656 


4337 




JMS 


GETAOR 


/GET ADR AND INDEX FIELDS 


1531 


01657 


1046 




TAD 


INDEX 


/WAS THERE AN INDEX? 



1532 


0 ', 


i660 


7650 




SNA 


CLA 






1533 


0 : 


661 


5264 




JMP 




.+3 


/NO 


1534 


0 : 


i662 


1036 




TAD 




EXPV AL+2 


/YES, GET 3 BITS 


1535 


0 : 


663 


£156 




AND 




17 




1 536 


0 ! 


664 


1 045 




TAD 




OPCOQE 


/GET OPCODE 


1537 


0 : 


665 


4550 




JMS 


I 


[OUT WRD 


/OUTPUT 


1548 


0: 


666 


1044 




TAO 




FPPAOR+1 


/NOW OUTPUT LOWER 12 BITS 


1541 


0 : 


667 


4550 




JMS 


I 


COUTWRD 


/OF ADDRESS 


1542 


0: 


670 


5563 




JHP 


I 


ENEXTST 




1543 








XITEMP, 










1544 


0! 


1671 


0000 


CHK IND, 


0 






/CHECK FOR "I" 


1545 


0 ; 


672 


1017 




TAD 




CHRPTR 


/SAVE CHAR POSITION 


1546 


0 : 


673 


302i 




OCA 




CPTMP 




1547 


0 


674 


1020 




TAD 




NChARS 




1550 


0 : 


675 


3022 




OCA 




NCTMP 




1551 


0 ; 


,676 


4553 




JMS 


I 


CGETN AM 

ti W lata 1 11 H 1 1 


/LOOK FOR NAME "I" 


1552 


0 


,677 


5671 




JMP 


I 


CHKIND 


/IF NO NAME , NO INDIRECT 


1553 


0: 


,700 


1051 




TAD 




BUCKET 


/DID IT START WITH "I"? 


1554 


0 


,701 


1375 




TAD 




Ol 1 




1 555 


0 


,702 


7640 




S2A 


CLA 






1 556 


0 


703 


5316 




JMP 




NOT IND 


/NQ, GO AWAY 


1557 


0 


1704 


1052 




TAD 




NAME 1 


/WAS "I" ENTIRE NAME? 


1560 


0 : 


,705 


7640 




SZA 


CLA 






1561 


0 


,706 


5316 




JMp 




NOTIND 


/NO, GO AWAY 


1562 


0 


,707 


227 1 




isz 




CHKIND 


/YES, SKIP ON RETURN 


1563 


0' 


,710 


4573 




JMS 


I 


[GfcTCHR 


/LOOK FOR BLANK 


1564 


0 


711 


567 1 




JMP 


I 


CHKIND 


/NONE LEFT* RETURN 


1565 


0 


L 7 1 2 


1140 




TAD 




[-240 




1566 


0 


713 


7640 




SZA 

S* tm 


CLA 

w n 






1567 


0 


1 7 1 4 


4561 




JMS 


I 


[BACK 1 


/NOT BLANK! BACKUP 


1570 


0 


1715 


5671 




JMP 


I 


CHK INO 


/RETURN 


157 1 


0. 


,716 


1021 


NOT I ND , 


TAD 




CPTMP 


/RESET CHAR POSITION 


1572 

* ** f ft. 


0 


717 

i f 4 f 


3017 




DC A 




CHRPTR 

w ; i ' » l lis 




1573 


0 


,720 


1022 




TAD 




NCTMP 




1574 


0' 


721 


3020 




DC A 




NCHARS 




1575 


0 


722 


567 1 




JMP 


T 

* 


CHKIND 


/RETURN^ NO SKIP 


1576 


0 ' 


1723 


0000 


ADRGET i 


0 






/GET ADDRESS EXPR AND CHECK TYPE 


1577 


0. 


,724 


4551 




JMS 


I 


[EXPR 


/GET EXPR 


1600 


0 


,725 


5332 




JMP 




ERR 1 




16611 


0! 


,726 


7344 




CLA 


CLL 


CMA RAL 


/MUST BE TYPE 1 OR 0 CADR OR UNO 


16Ci2 


0 


,727 


1037 




TAD 




EXPTYP 




160 3 


0 ' 


,730 


7750 




SPA 


SNA 


CLA 




16^4 


0* 


731 


5723 




JMP 


I 


ADRGET 




1 6655 


0 


,732 


4572 


ERR 1 , 


JMS 


I 


EERMSG 


/BAD ADDK EXPR 


1 606 


0 


,733 


$ 2 3 0 




0230 




/*BX* 


1607 


0 


,734 


3035 




DC A 




EXPV AL+1 


/SET EXPR TO 0 


1610 


0 


735 


3036 




DC A 




EXPV AL+2 




1611 


2 1 


736 


5723 




JMP 


I 


ADRGET 




1612 


0 


,737 


0 |£ j£, 0 


GET ADR * 


0 






/GET ADDR, INDEX 


1613 


0 


,740 


327 1 




DC A 




XITEMP 


/SAVE INDEX INCREMENT SWITCH 


1614 


0 


,741 


2#75 




ISZ 




FPP5WT 


/TELL EXPR ITS AN r PP INSTR 


1615 


0 


1742 


4323 




JMS 




ADRGET 


/GET ADDR 


* <c • u 


H 1 ill 


3 r5 7 5 




r>r * 

V w ^ 






/KILL FPP SWITCH 


1617 


01744 


1037 




TAO 




EXPTYP 


/IF ixPR WAS UNDEFINED 



1 69w 


PI 1 745 


y 


SN A 


CI A 

w u * 






169 1 


i/t 1 7 4 £ 


7 li ^ 1 


tap 






/no FflPTF HTT UAQ c p t 


1 699 
J. »' c c 


C! 1 747 


1^7 6 


t * n 




f P R ? W f j 




1 693 


ft 1 7 50 


3 v3 7 7 


nr a 




F P P k 0 9 


/FCkRCF 9 toftRR FflRMAT 




u 1 7 5 1 


3 40 4 6 

^ V.I M y 


DC A 






/7FRD TNHF* SWT 


1 6 2 *> 


w 1 7 6 9 


1 13 6 


t £ n 




£ PU Al 4 1 


/cai/c inciepss u * 1 hp 

/OMVC MUUnCOO VALUL 


1 v < P 


0M 7 53 


3 i^' 4 3 






STOP tCjO 




1 69 7 


£M 7 54 


1 3 6 


T A n 




F X P V A L lO 




1 6 3 


21755 


3^44 


W lr» M 




F P P A 0 R + 1 




1631 


w 1 756 


4 57 3 


J MS 


T 
A 


f GFTCHR 


/I DDK FDR PDMMA 
rwvivrx run w u n n m 


1 639 

1 v W t 


(?) 1 7 5 7 


5737 


IMP 


T 
A 


GFT AHR 


/KID TlunFY 


163 3 


Pi 1 7 62* 


1374 


! * U 




f -954 
^ " c w *t 




1634 


P! 1761 


7 64$ 


S7 A 

v> *. 


CL A 
t> L •* 






1 636 

X *J w 


e«. 1 7 6 2 
Kit f w e 


5371 






FRR9 
V- n r\ c 


/WAKi PHMMA TS RAH 


A O O v 


W 1 763 


9 1/ d 6 
c. t; « w 


TCI 
10 4 




A W U C A 


/OCT TMnFV 5uTTfW 


1637 


01764 


197 1 


t An 




V T T fc M p 

a a 1 tnr 


ycpT TMftffv TMPRFMFKIT QWTTrU 


1 6 4 (i 


ft 1 7 65 


3 1? D 0 


n c a 

U M 




X I NCR 




164 1 


0> 1 766 


4 S 9 


IMS 




& n W fi F T 




1642 


Z1767 




ISZ 




XINCR 


/CL.EAR INDEX INCREMENT SWITCH 


1643 


B1770 


5737 


JMP 


I 


GET AQR 




1644 


£1771 


6572 EHR2, 


JNS 


I 


[ERhSG 


/BAD AOOR EXPR 


164$ 


*1772 


v 2 3 ft 


0230 






/*BX* 


1646 


01773 


5737 




I 


GET ADR 





1647 EJECT 





01774 


7524 












01775 


7767 












#1776 


3017 












01777 


ft 400 










i 6 5 0 








PAGE 






1651 


02000 


0000 


PRNTLN. 


0 






1652 


02001 


1063 




T AO 




OUTSET 


1653 


02002 


7640 




SZA 


CLA 

W W f* 




1654 


02003 


5600 




JMP 


I 


PRNTLN 


1655 


02004 

Sr* £f W ^ 


2063 




ISZ 




OUTSrtT 


1656 


02005 


1171 




TAD 




[LINE* 1 


1657 


02006 


30 10 




OCA 




X 1 0 


1660 


02007 

*i/ ■* %i <u f 


1410 

h ~ A 




TAD 


I 


X 1 0 


1661 


"J ft YU 4 ItJ 


4576 




JMS 


I 


CPRINTC 


1662 

* w V ft 


029 1 1 

t* ft Jt 1 


2023 

<y & w 




ISZ 

* W ft. 




LINSIZ 


1663 


02012 


5207 




J HP 




.-3 


1664 


020 13 


5600 




JMP 


T 

* 


PRNTLN 


1665 

4 w v W 


020 1 4 


0000 


GfcTUNT i 

**U 1 Wll 1 f 


0 






1666 


W20 1 5 

w ft El A 


4573 




JHS 


1 


tGETCHK 


1667 


020 16 


5230 




JMP 




NOUMT 


1675* 


020 1 7 


4561 




JMS 


I 


EBACK 1 


1671 


02020 


4554 




JMS 


I 


tAORGET 


1672 


02021 


1 yJ36 




TAD 




EXPV AL+2 


1673 


02022 


1377 




T AO 




(-10 


1674 


02023 


7500 




SM a 






1675 


02024 


5776 




JMP 


I 

A 


CChERR 


1676 


02025 


1375 




TAD 




C 10 


1677 


02026 


7510 




SPA 








02027 


5776 




JMP 


I 


CCHERR 


1701 


02030 


3774 


NOUMTr 


OCA 


I 


(UNIT 


1702 


02031 


5614 




JMP 


I 


GETUNT 


1703 


02032 


1040 


FP, 


TAD 




EXPSw 


1704 


02033 


7650 




SNA 


CLA 

** fc» n 




1 7m5 


02034 


5237 




JMP 




. + 3 


1706 


02035 


1373 




TAO 




C3 


1707 


02036 


3037 




OCA 




EXPT YP 


1718 


02037 


1037 




TAD 




EXPT YP 


1711 


02040 


7440 




SZA 






1712 


02041 

V mm %J ~ 4 


1372 




T AO 




C-3 


1 7 1 "* 


02042 


7640 




SZA 


CLA 




1714 


02043 


5771 




JMP 


I 


(MXDTYP 


1715 


02044 


1410 




TAD 


I 


X 1 0 


1716 


02045 


3355 




OCA 




OPR AND 


1717 


02046 


1410 




TAO 


I 


X 10 


1720 


02047 


3356 




DC A 




OPR AND* 1 

W « '» nil W ' 4r 


1721 


02050 


1410 




TAO 


I 


X 10 


1722 


02051 


3357 




OCA 




OPRAND+ 2 


179"^ 
I' eO 


10 c, a J c 


f>9& 1 

O C K I 








r uuits 


1724 


02053 


3040 




OCA 




EXPSw 


1725 


02054 


1370 




TAO 




CXFPTBL-1 


« 70« 

4 r c. w 


a o « K «i 

t" »J w 






T A i\ 
I f" w 




1 ARTflB 


1727 


02056 


3263 




DC A 




XFOPR 



/PRINT THE LINE 

/HAS THE LINE BEEN PRINTED YET? 

/YES, COOL IT 
/SET SWITCH 
/POINTER TO LINE 

/GET A CHAR 
/PRINT IT 
/BUMP COUNT 



/GET UNIT FOR CHAIN 
/IS ANYTHING THERE ? 
/TREAT IT AS UNIT 0 
/PUT BACK EXPR CHAR 
/GET UNIT EXPR 

/CHECK RANGE 
/CHECK RANGE 
/TOO BIG 



/TOO SMALL 
/SAVE UNIT 
/RETURN 

/FIRST TIME THRU ? 
/NO 

/SET TYPE TO 3 CFP) 

/CHECK TYPE OF EXPR SO FAR 
/0 CUNO) IS OK 
/SO IS 3 (FP) 

/ANYTHING ELSE IS A NO-NO 
/GET OPERAND 



/CLEAR FIRST TIME SNITCH 
/GET CORRECT FP OPERATION 

/ADQR OF CORRECT OPERATION 



173* 


(42057 


lofc3 




TAD I 


XFOPR 


/GET CORRECT OPERATION 


1731 


020)60 


o2r,3 




DC A 


XFOPR 


/STORE IT 


1732 


02061 


4177 






177 


/ENTER FPPRL 


1733 


02062 


3^34 




300i?i 


EXPVAL 


/FPL AC EXPVAL 


173^ 


*>2063 


i' i/)00 


XFQPK, 


0 




/FPXXX OPRANO 


173b 


«2064 


fc*134 




2000 


EXPVAL 


/FPSTO EXPVAL 


1736 


02065 






0 




/FPEXIT 


1737 


02066 


5537 




JKP I 


tOPRBR 


/GO GET OPERATOR 


174*) 








XPPRN0«UPRANU*177 


/PAGE ADDR OF OPRANO 


1741 








X6AD»8ADX&177 


/PAGE AOOR OF BAOX 


17 4* 


02067 


4355 


XFPTttL, 


4200 


XOPRND 


/FPAOD OPR AND 


1743 


02070 


5355 




5200 


XOPRNO 


/FPSUB OPRANO 


1744 


02071 


6355 




6200 


XOPRND 


/FPMUL OPR AND 


17 45 


02072 


7 355 




7200 


XOPRND 


/FPOIV OPR AND 


1746 


02073 


1275 




1200 


XBAO 


/FPJMP BADX 


1747 


02074 


1275 




1200 


X8AC 


/FPJMP BADX 


1756? 


02075 


*i000 


BADX, 


0 




/FPEXIT 


1751 


02076 


5767 




JHP I 


CBAC 


/& 1 BAD FOR FP OR OP 


1752 


*2077 


4766 


INFP, 


JMS I 


CFUINTP 


/GET FP OR OP NUMBER 


1753 


'#2100 


5232 




Jjvip 


FP 


/ITS FP 


1754 


02101 


1410 




TAO I 


XlSfl 


/ITS OP, BUT NORMALIZED 


1755 


02102 


3355 


OP t 


DC A 


OPR AND 


/PUT EXPONENT 


175b 


02103 


1410 




TAO I 


X10 


/THEN HIGH PART 


1757 


02104 


3356 




OCA 


OPRAND+1 




1760 


02105 


1410 




TAO I 


X 10 


/THEN LOW PART 


1751 


02106 


3357 




OCA 


OPRAND+2 




1762 


32107 


62^1 




CDF 


FLO0 




1763 


02110 


1040 




TAO 


EXPSw 


/TYPE CHECK 


1764 


02111 


7650 




SNA CLA 






1765 


021 12 


5315 




JHP 


• +3 




1766 


2521 13 


7126 




CU CML 


RTL 


/FIRST TIME SETS TYPE 


1767 


02114 


3037 




OCA 


EXPTYP 




177? 


02115 


1037 




TAO 


EXPTYP 


/CHECK 


1771 


02116 


7440 




SZA 




/0 OR 2 OK 


1772 


02117 


1365 




TAO 


C-2 




1773 


02120 


7640 




SZA CLA 






1774 


02121 


5771 




JMP I 


CMXDTYP 


/MIXED TYPES 


1775 


02122 


3040 




OCA 


EXPSW 




1776 


02123 


1055 




TAO 


LASTOP 


/GET CORRECT OPERATION 


1777 


02124 


1370 




TAO 


CXFPTBL-1 






02125 


3334 




OCA 


XDOPR 




20^1 


02126 


1734 




TAD 1 


XOOPR 




2002 


02127 


3334 




OCA 


XDOPR 




2003 


02130 


4177 




JMS 


177 


/ENTER FPPRL 


2004 


02131 


3355 




3200 


XOPRND 


/FPL AC OPR AND 


2005 


02132 


2355 




2200 


XOPRND 


/FPSTO OPR AND (NORMALIZES) 


2006 


02133 


3034 




3000 


EXPVAL 


/FPLAC EXPVAL 


2007 


02134 


*1000 


XOOPR, 


0 




/FPXXX OPR AND 


2010 


02135 


0000 




0 




/FEXIT 


201 1 


02136 


1112 


UNNDRH, 


TAO 


ACE 


/CHECK EXPONENT 


2012 


02137 


7450 




SNA 






2013 


0214A 


5347 




JHP 


MOVEOP 


/DONT SHIFT IF EXP 0 


2014 


02141 


7500 




SMA 






2015 


02142 


1364 




tad 


C-27 


/IF POS EXP, INTEGER IZE 



2016 


02143 


77 m 


5*A 


CL A 




2017 


02144 


5347 


JMR 




rtQVEDP 


2020 


02145 


4763 


JtfS 


I 


(Aft 1 


2021 


02146 


5336 


JMP 




UNNCRM 


2022 


02147 


3034 


MGVEDP, DCA 




EXPVAL 


2023 


02150 


1 116 


TAO 




ACL 


2024 


02151 


0036 


DCA 




EXPVAL+2 


2025 


02152 


1117 


TAD 




ACH 


2026 


02153 


3035 


DCA 




EXPVAL+1 


2027 


02154 


5537 


JHP 


I 


C0PR8R 


2030 


02155 


0000 


QPRAND, 0,0 








02156 


000 










02157 


0000 









/IF STILL PCS DONT SHIFT 
/SHIFT AC RIGHT 1 
/CONTINUE UN-NORMALIZATION 
/ZERO EXPONENT 

/LOwER WORD 

/UPPER WORD 
/GET OPERATOR 



21331 EJECT 





02163 


£342 












02164 


7751 












02165 


7776 












02166 


22EI? 












02167 


2445 












02170 


2066 












02171 


2554 












02172 


7775 












02173 


t-003 












02174 


5243 












02175 


£010 












02176 


5347 












02177 


77765 










2832 








PAGE 




2033 


02200 




FH*TP, 


0 






2034 


02201 


3324 




OCA 




PRSfc 


2035 


02202 


4326 




JHS 




OECONV 


2(336 


02203 


4573 




JMS 


I 


[GETCHR 


2037 


02204 


5217 




JMP 




ENPFPN+1 


2fc4S5 


02285 


U36 




TAO 




[-256 


2041 


02206 


7640 




SZA 


CLA 




2042 


02207 


5216 




JMP 




ENOFPN 


2043 


02210 


1324 




TAO 




PRSk 


2044 


02211 


7640 




SZA 


CL A 




2845 


02212 


5221 




JMP 




P£R2 


2046 


02213 


3361 




DC A 




DNUMBR 


2047 


02214 


2324 




ISZ 




PRSfc 


2050 


02215 


5334 




JMP 




OECCN 


2051 


02216 


4561 


ENOFPN, 


JMS 


I 


C8ACK1 


2052 


02217 


1324 




TAO 




PRSft 


2053 


02220 


7640 




SZA 


CLA 




2054 


32221 


1361 


PER2, 


TAD 




DNUH6R 


2055 


02222 


7041 




CIA 






2056 


02223 


3325 




OCA 




SEXP 


2057 


02224 


1065 




TAO 




RADIX 


2060 


<*2225 


3326 




OCA 




OECONV 


2061 


02226 


2065 




ISZ 




RADIX 


2062 


02227 


4573 




JMS 


I 


IGETCHR 


2063 


02230 


5267 




JMP 




FPFIX 


2064 


02231 


1377 




TAD 




C-305 


2065 


02232 


7450 




SNA 






2066 


02233 


5237 




4hP 




• ♦4 


2067 


02234 


7WI 




IAC 






2070 


02235 


7 450 




SNA 






2071 


02236 


2200 




ISZ 




FLINTP 


2072 


02237 


7640 




SZA 


CLA 




2073 


02240 


5266 




JMP 




FPFIX-1 


2074 


02241 


4573 




JMS 


I 


CGETCHR 


2075 


02242 


5267 




JMP 




FPFIX 


2076 


02243 


1376 




TAO 




(-253 


2077 


02244 


7450 




SNA 






2100 


02245 


5252 




JMP 




ISPLUS 



/SET PERIOD SWITCH 
/GET CHAR 
/IS IT %" 

/IF NOT, LOOK FOR EXPONENT 
/PERIOD FOUND PREVIOUSLY ? 

/YES, SECOND PERIOD 
/ZERO OIGIT COUNT 
/SET PERIOD SWITCH 
/CONVERT REST OF STRING 
/PUT BACK NON PERIOD 
/PERIOD READ IN PREVIOUSLY ? 

/YES, -NUMBER OF DIGITS TO SEXP 
/NO, ZERO TO SEXP 

/SAVE RADIX 

/AND SET RADIX TO DECIMAL 
/CHECK TERMINATOR 
/END OF LINE 
/»E M ? 

/YES 
/ " D " ? 

/SKIP ON RETURN IF DP 
/"D H OR " E" ? 
/NO, END OF NUMBER 
/LOOK FOR SIGN 
/NO SIGN 
/IS IT + 

/YES 



2101 


02246 


1375 




T AO 


(253-255 


/IS IT » 


2102 


02247 


7650 




SNA CLA 






2103 


02250 


5253 




JMP 


ISPLUS+i 


/YES 


2104 


02251 


4561 




JMS I 


CBACK1 


/PUT IT BACK 


2 ieb 


02252 


7001 


ISPLUS, 


IAC 






21(26 


02253 


3373 




DC A 


FPESGN 


/SET EXP SIGN 


2107 


02254 


4535 




JMS I 


CNUMBER 


/GET EXP 


2110 


02255 


5267 




JMP 


FPFIX 


/NO EXP 


2111 


02256 


1373 




T AO 


FPESGN 


/GET SIGN INDICATOR 


2112 


02257 


7110 




CLL RAR 




/INTO LINK 


2113 


02260 


1042 




TAO 


W0RD2 


/EXPONENT VALUE 


2114 


02261 


7420 




SNL 






2115 


02262 


7041 




CIA 




/COMPLEMENT IF SIGN » 


2116 


02263 


1325 




TAO 


SEXP 


/NUMBER OF DIGITS RIGHT OF 


2117 


02264 


3325 




OCA 


SEXP 


/GIVES MODIFIED EXPONENT 


2120 


02265 


7410 




SKP 






2121 


02266 


4561 




JMS I 


[BACK 1 


/RETURN CHAR 


2122 


02267 


1325 


FPFIX, 


TAO 


SEXP 


/KEEP GOING ? 


2123 


02270 


7450 




SNA 






2124 


0227 i 


53U 




hi MP 


endff: 


/NO, RETURN 


2125 


02272 


7700 




SMA CLA 






2126 


02273 


5302 




JMP 


MULT 10 


/MULT BY 13, 


2127 


02274 


2325 




IS2 


SEXP 


/INCREMENT BY 1 


2130 


02275 


7000 




NOP 






2131 


02276 


4177 




JMS 


177 




2132 


02277 


7321 




TENS177+7200 


/DIVIDE BY 10, 


2133 


02300 


0000 




0 






2134 


02301 


5267 




JMP 


FPFIX 




2135 


02302 


7240 


MULT 10 , 


CLA CMA 




/DECREMENT BY 1 


2136 


02303 


1325 




TAO 


SEXP 




2137 


02304 


3325 




OCA 


SEXP 




2140 


02305 


4177 




JMS 


177 




2141 


02306 


6321 




TEN&177+6200 


/MULTIPLY BY 10, 


2142 


02307 


0000 




0 






2143 


02310 


5267 




JMP 


FPFIX 




2144 


02311 


4177 


ENDFPI, 


JMS 


177 


/PUT NUMBER INTO FPTMP 


2145 


02312 


2365 




FPTMP&177+2200 




2146 


02313 


0000 




0 






2147 


02314 


1326 




TAO 


OECONV 


/RESTORE RADIX 


2150 


02315 


3065 




OCA 


RADIX 




2151 


02316 


1374 




TAO 


CFPTMP-1 




2152 


02317 


3010 




OCA 


X10 


/SET POINTER IN X10 


2153 


02320 


5600 




JMP I 


FLINTP 


/RETURN 


2154 


02321 


0004 


TEN, 


4|2400?5i 


/10, 




02322 


2400 












02323 


0000 










2155 


02324 


0000 


PRSW, 


0 






2156 


02325 


0000 


SEXP, 


0 






2157 


02326 


0000 


DECONV, 


0 






2160 


02327 


3112 




OCA 


ACE 


/ZERO FAC 


2161 


02330 


2116 




OCA 


ACL 




2162 


02331 


3117 




OCA 


ACM 




2163 


02332 


3115 




OCA 


ACO 




2164 


02333 


3361 




OCA 


DNUMBR 


/ZERO DIGIT COUNT 



2i6a 


02334 


4573 


DfcCQN, 


JMS I 


tGETCHR 


2166 


02335 


5726 




JMP I 


OECONV 


2167 


02336 


U34 




T AO 


[-272 


2170 


02337 


7500 




SMA 




2171 


0234?i 


5357 




JKP 


NOTPPO 


2172 


02341 


1 133 




TAO 


[12 


2173 


02342 


7510 




SPA 




2174 


02343 


5357 




JMP 


NOTFPO 


2175 


02344 


336« 




OCA 


FPDIGT+2 


2176 


02345 


4177 




JMS 


177 


2177 


02346 


2365 




FPTMP&177+2200 


2200 


02347 


3362 




FPQIGT&177+3200 


2201 


02350 


2370 




FPTMP2&177+2200 


22(^2 


02351 


3365 




FPTMP&177+3200 


2203 


02352 


6321 




TEN&177+6200 


2204 


02353 


4370 




FPTHP2&177+4200 


2205 


02354 


0000 




0 




2206 


02355 


2361 




ISZ 


DNUH8R 


2207 


02356 


5334 




JMP 


OECON 


2210 


02357 


4561 


NOTFPD, 


JMS I 


[BACK 1 


2211 


02360 


5726 




JMP I 


OECONV 


2212 


02361 


0000 


DNUMBR, 


0 




2213 


02362 


0027 


FPOIGT, 


27 J0I0 






02363 


0000 










02364 


65000 








2214 


02365 


W0 


FPTMP, 


01070 






02366 


0000 










02367 


0000 








2215 


02370 


0000 


FPTMP2, 


01010 






02371 


0000 










02372 


0000 








2216 


02373 


0000 


FPES6N, 


0 




0000 








CHAIN 


"FPPASM2 



/GET A CHARACTER 
/RETURN 

/TEST FOR DIGIT 
/NOT A DIGIT 



/STORE IN LOW PART OF FP NUMBER 

/SAVE FAC 
/NORMALIZE DIGIT 

/GET FAC 
/MULT BY 10. 
/ADD NEW DIGIT 
/FEXIT 

/INCR DIGIT COUNT 
/LOOP 



0001 


02374 
02375 
02376 
02377 


2364 
7776 
7525 
7473 




EJECT 






0002 








PAGE 






0003 


02400 


£000 


EXPR, 


0 




/GET EXPRESSION 


0004 


0240 1 


3034 




OCA 


EXPV AL 


/ZERO EXPR VALUE 


0005 


02402 


3235 




DCA 


EXPVAL+1 




0006 


02403 


3036 




DCA 


EXPV AL+2 




0007 


02404 


3037 




DCA 


EXPTYP 


/AND TYPE 


0010 


02405 


7201 




CLA IAC 




/SET EXPR SWITCH TO NO EXPR 


001 1 


02406 


3040 




OCA 


EXPSW 




0012 


02407 


3076 




DCA 


FPP2WD 


/SET FORCE SWITCH OFF 


0013 


02410 


7201 




CLA IAC 




/SET LASTOP TO + 


0014 


0241 1 


3055 




OCA 


LASTOP 




0015 


02412 


*532 




JMS I 


CCHKLIT 


/GO CHECK FOR LITERAL 


0016 


02413 


4573 




JMS I 


[GETCHR 


/LOOK FOR UNARY* - 


00 1 7 


02414 


5600 




JMP I 


EXPR 


/NO EXPRESSION 


0020 


02415 


1377 




TAD 


C-255 


/IS IT - 


0021 


02416 


7450 




SNA 






0022 


02417 


2055 




ISZ 


LASTOP 


/SET LAST 0PER8R TO - 


0023 


02420 


7440 




SZA 






0024 


02421 


1376 




TAD 


C255-253 


/IS IT + OR * 


0025 


02422 


7640 




SZA CLA 






0026 


02423 


4561 




JMS I 


[BACK1 


/NO* PUT CHAR BACK 


0027 


02424 


4553 


SYMSQLi 


JMS I 


CGETNAM 


/NOW PICK UP NAME 


0030 


02425 


5247 




JMP 


NOSYM 


/NONEi TRY OTHER 


0031 


02426 


4552 




JMS I 


ELQQKUP 


/LOOK IT UP 


0032 


02427 


5357 




JMP 


OEFSYM 


/NEW SYMBOL 


0033 


02430 


1375 




TAD 


C-5 


/CHECK FOR BADDIES 


0034 


02431 


7500 




SM A 






0035 


02432 


5245 




JMP 


BAD 


/BAD EXPRESSION 


0036 


02433 


1236 




TAD 


SYMTYP 




0037 


02434 


3235 




OCA 


• *1 


/STORE JUMP 


0040 


02435 


0000 




0 




/JUMP THRU TABLE 


004 1 


02436 


5644 


SYMTYP, 


JMP I 


• +6 




0042 


02437 


2600 


PUNDEF, 


UNOEF 




/UNDEFINED 


0043 


02440 


2520 




ADR 




/USER ADDRESS 


0044 


02441 


2102 




DP 




/USER D,P, 


0045 


02442 


2032 




FP 




/USER F»P, 


0046 


02443 


2525 




ONE 




/PDP-8 OPERATE 


0047 


02444 


2200 


QKEXP , 


ISZ 


EXPR 


/GOOD EXPR, BUMP RETURN 


0050 


02445 


7200 


6 AD , 


CLA 






0051 


02446 


5600 




JMP I 


EXPR 


/RETURN 


0052 


02447 


1017 


NOSYM, 


TAD 


CHRPTR 


/NO NAME , SAVE CHAR POS 


0053 


02450 


3067 




DCA 


EXTMP 




0054 


02451 


1 020 




TAD 


NCHARS 




0055 


02452 


3070 




DCA 


EXTMP2 




Gi £S ^ ri 


552453 


f / 4 






i ht Li pi 8 F R 


/LOOK FGR A NUMBER 


0057 


02454 


5275 




JMP 


NOTNUM 


/NO NUMBER 




02455 


4573 




JMS I 




/LQQK at nfxT CHAR 


0061 


02456 


5331 




JMP 


ADREXP 


/NO NEXT CHAR, USE NUMBER 



0062 


02457 


1136 




TAD 




C-256 


/IS CHAR «,«' 


3063 


02460 


7440 




SZA 








0064 


02461 


1373 




TAD 




C25b-305 


/IS IT «E« ? 


01J65 


652462 


7440 




SZA 








0066 


02463 


7301 




1AC 






/IS IT "D" ? 


0067 


02464 


7 650 




SKA 


CIA 






0070 


02465 


5270 




JHP 




GETFPN 


/TRY FOR DP NUM 


■mix 


02466 


4561 




JMS 


I 


[SACK 1 


/OTHERWISE PUT IT BACK 


0072 


02467 


5331 




JHP 




ADREXP 


/GO USE IT 


0073 


02470 


He 7 


GfcTFPNf 


T AQ 




EXTKP 


/RESET CHAR POINTER 


0074 


02471 


3*ai7 




OCA 




CHRPT* 




0075 


02472 


1070 




TAD 




EXTMP2 




0076 


02473 


3020 




OCA 




NCHARS 




0077 


02474 


5772 




JMP 


I 


CINFP 


/TRY FOR FP OR DP NUMBER 


0100 


02475 


-3573 


NOTNUMf 


JHS 


I 


[GETCHR 


/NOT A NUMBER , GET A CHAR 


0101 


02476 


5771 




JMP 


I 


CENDEXP+1 


/NONE LEFT, END 


0102 


02477 


1136 




TAD 




C-256 


/IS IT %» ? 


0103 


02500 


764(2 




SZA 


cu 






01(44 


02501 


5770 




JHP 


I 


CENCEXP 


/NO. END EXPR 


0105 


02502 


«573 




JHS 


I 


[GETCHR 


/LOOK AT NEXT CHAR 


0106 


02503 


5313 




JHP 




ISOOT 


/NO NEXT CHAR, ITS LOC SYMBOL 


0107 


02504 


1134 




TAO 




[-272 


/IS NEXT CHAR A DIGIT 


0110 


02505 


7500 




SKA 








0111 


02506 


5312 




JHP 




ISDOT-1 


/NO 


0112 


02507 


1133 




TAD 




[12 




0113 


02510 


77m 




SMA 


CLA 






0114 


02511 


5270 




JHP 




GETHPN 


/YES, TREAT %N« AS FP NUMBER 


0115 


02512 


4561 




JHS 


I 


[BACK 1 


/OTHERWISE PUT IT BACK 


0116 


02513 


1026 


ISOCT, 


TAO 




LOCTRi 


/THIS WAS LOC SYMBOL 


0117 


02514 


3341 




OCA 




WORD1 


/PUT VALUE INTO W0RD1,2 


012!? 


02515 


1027 




TAD 




LOCTR2 




0121 


02516 


3442 




DC A 




W0RD2 




0122 


02517 


5331 




JHP 




AOREXP 


/AND USE VALUE 


0123 


02520 


1466 


AUK, 


TAD 


I 


LTEHP 


/CHECK FORCE BIT FOR THIS SYMBOL 


0124 


02521 


9. 131 




AND 




[40 




0125 


02522 


7640 




SZA 


CLA 






0126 


02523 


2076 




ISZ 




FPP2W0 


/AND SET SWITCH IF BIT ON 


0127 


02524 


1410 




TAO 


I 


X10 


/GET FIRST WORD OF VALUE 


0130 


02525 


3341 


ONE, 


DC A 




WORD1 


/SINGLE WORD SYMBOL, HIGH=0 


0131 


02526 


1410 




TAD 


I 


X10 


/GET REST OF SYMBOL 


0132 


02527 


3342 




OCA 




W0RD2 




0133 


02530 


620 1 




CDF 




FLD0 


/FIX FIELD 


0134 


02531 


1046 


ADKfcXP, 


TAD 




EXPSW 


/FIRST TIME THROUGH 1 


0135 


02532 


7440 




SZA 






/IF SO THEN SET TYPE TO ADDR 


0136 


02533 


3037 




DC A 




EXPTYP 


/OTHERWISE LEAVE IT ALONE 


0137 


02534 


7144 




CLL 


CHA 


RAL 




a 140 


02535 


H37 




TAD 




EXPTYP 


/CHECK FOR TYPE CONFLICT 


0141 


02536 


7700 




SMA 


CLA 






0142 


02537 


5354 




JHP 




MXDTYP 


/NOT - MEANS FP OR DP 


0143 


02540 


3040 




DCA 




EXPSW 


/KILL FIRST TIME SWITCH 


0144 


02541 


1055 




TAD 




LASTOP 


/PICK UP LAST OPERATOR 


0145 


02542 


1345 




TAO 




ADRCP 


/MAKE A JMP I 


0146 


02543 


3344 




OCA 




.♦1 




0147 


02544 


0 0 




0 






/DO IT 



0150 02545 5745 ADRDP, 

0151 02546 2641 

0152 02547 2652 

0153 &2550 27P6 

0154 02551 2445 

0155 02552 2664 

0156 02553 2673 

0157 02554 4572 MXDTYP 

0160 02555 1524 

0161 02556 5537 

0162 02557 3416 QEFSYM 

0163 02560 3416 

0164 02561 5637 



J Mr L 




a no a nn 

AUK AUU 




a n ti e 1 1 a 




A rv Q M 1 1 1 




St A ft 




A U K A N U 




ADROR 




JMS I 


CERMSG 


1524 




JMP I 


C0PR8R 


OCA I 


NEXT 


OCA I 


NEXT 


JMP I 


PUNDEF 



/INTEGER DIVIDE NOT IMPLEMENTED 



/MIXED TYPES 
/*MT* 

/NEW SYMBOL, ALLOCATE 2 WORDS 
/THEN TREAT LIKE UNDEFINED 



0165 





02570 


1*374 






02571 


107 5 






£2572 


2*77 






02573 


7751 






«2574 


3475 






02575 


7773 






02576 


0iflifj2 






02577 


7523 




0166 








0167 


02600 


1075 




017f- 


02601 


7650 




0171 


02602 


52?7 




0172 


02603 


1466 




0175 


02604 


0377 




8)174 


02605 


1131 




0175 


02606 


3466 




0176 


02607 


3*437 




0177 


02610 


62R1 




0280 


02611 


304& 




0201 


02612 


7144 




0202 


02613 


1056 




0203 


02614 


7710 




0204 


02615 


5220 




0205 


02616 


4572 




0206 


02617 


2523 




0207 


02620 


1376 


QPR8R, 


0210 


02621 


3011 




021 1 


02622 


3055 




0212 


02623 


4573 




0213 


02624 


5775 




0214 


02625 


3067 




0215 


02626 


1411 


FXN0OP, 


0216 


02627 


7450 




0217 


02630 


5774 




0220 


02631 


1067 




0221 


02632 


7650 




0222 


02633 


5236 




0223 


02634 


201 1 




0224 


02635 


5226 




0225 


02636 


1411 


GUTQP , 


0226 


02637 


3055 




0227 


02640 


5773 




0230 


02641 


1036 


ADKADO, 


0231 


02642 


7100 




0232 


02643 


1042 




0233 


02644 


3036 




0234 


02645 


7B04 




0235 


02646 


1035 




0236 


02647 


1041 




0237 


02650 


3035 




0243 


02651 


5220 




0241 


02652 


1042 


AQRSU8 , 



EJECT 



PAGE 






T AO 




FPPSwT 


/IS THIS AN FPP ADDR ? 


SNA 


CLA 






Jl*P 




.+5 


/NO, SKIP AROUND 


TAQ 


I 


LTEtfP 


/TURN ON FORCE BIT 


AND 




(7737 


/FOR THIS SYMBOL 


TAD 




140 




DC A 


I 


LTEMP 




OCA 




EXPTYP 


/SET TYPE TO UNDEFINED 


CDF 




FLQ0 


/FIX FIELD 


OCA 




EXPSiN 


/KILL FIRST TIME SWITCH 


CLL 


CH A 


RAL 


/-2 


TAQ 




PASSNO 


/IF > PASS 1, UNDEFINED ERROR 


SPA 


CLA 






JHP 




QPRBR 


/UNDEFINED HAS VALUE 0 


JHS 


I 


EERMSG 




2523 




/★us* 


TAQ 




(0PR8RS-1 


/SET POINTER 


OCA 




Xll 


/TO OPERATOR TABLE 


OCA 




LASTQP 


/ZERO LASTOP 


JUS 


I 


CGETCHR 


/GET CHAR 


JMP 


I 


CENPEXP+l 


/NONE, DONE 


OCA 




EXT HP 


/SAVE IT 


TAO 


I 


Xll 


/GET NEXT LIST ENTRY 


SNA 








JHP 


I 


CENDEXP 


/ZERO IS END OF LIST 


TAO 




EXTMP 


/COMPARE 


SNA 


CLA 






JMp 




GOTOP 


/THIS IS THE OPERATOR 


ISZ 




Xll 


/NO, BUMP PTR 


JMP 




FINDOP 


/LOOP 


TAO 


I 


Xll 


/PICK UP OTHER VALUE 


OCA 




LASTOP 


/SAVE IN "LASTOP" 


JMp 


I 


(SYMBOL 


/LOOK FOR OPERAND 


TAD 




EXPVAL+2 


/AOD FOR 15 BIT ADDRESS 


CLL 






/ZERO LINK 


TAO 




W0RD2 


/ADD LOW WORDS 


OCA 




EXPVAL+2 


/SAVE RESULT 


RAL 






/PUT CARRY INTO BIT 11 


TAO 




EXPVAL+1 


/ADD HIGH 


TAO 




WOROl 


/ORDER WORDS 


OCA 




EXPVAL+i 


/SAVE RESULTT 


JMP 




0PR6R 


/LOOK FOR OPERATOR 


TAO 




W0RC2 


/SUBTRACT LOW 12 BITS 



0242 


02653 


7161 




CLU 


CMS. 


CIA 




0249 


02654 


1036 




TAD 




EXPVAL+2 




55244 


02655 


3036 




OCA 




EXPV AL + 2 


/SAVE LOW HALF 


0245 


02656 


70k?4 




R AL 








0246 


02657 


1041 




TAD 




WORD 1 


/SUBTRACT HIGH HALF 


0247 


02660 


7041 




CIA 








0259 


02661 


1035 




TAD 




EXPVAL+1 




0251 


02662 


3035 




DC A 




EXPVAL+1 


/SAVE HIGH HALF 


0252 


02663 


5220 




JMP 




QPR6R 


/GET OPERATOR 


0253 


02664 


1041 


AGRAND f 


TAD 




W0RD1 


/AND 


0254 


02665 


0035 




AND 




EXPVAL+1 


/HIGH 


0255 


02666 


3035 




DC A 




EXPVAL+1 


/HALF 


0256 


02667 


1042 




TAD 




H0RD2 


/THEN 


0257 


02670 


0036 




AND 




EXPVAL+2 


/LOW 


0260 


02671 


3036 




OCA 




EXPVAL+2 


/HALF 


0261 


02672 


5220 




JMP 




QPR8R 


/THEN COOL IT 


0262 


02673 


1041 


ADRORf 


TAO 




W0RD1 


/OR IS THE SAME AS 


0263 


02674 


7040 




CM A 






/SETTING THE BITS 


0264 


02675 


0035 




AND 




EXPVAL+1 


/THAT ARE ON IN B AND lOT ON 




02676 


i«4j 




Tad 




"lOKDi 


/AND THEN SETTING THE b i T © 


0266 


02677 


3035 




DC A 




EXPVALtl 


/THAT ARE ON IN A 


0267 


02700 


1042 




TAO 




WCRD2 




0270 


02701 


7040 




CMA 








0271 


02702 


0036 




AND 




EXPVALt2 




0272 


02703 


1042 




TAD 




W0RD2 




0273 


02704 


3036 




OCA 




EXPVAL+2 




0274 


02705 


5220 




JMP 




0PR8R 


/LOOK FOR OPERATOR 


0275 


02706 


3066 


ADRMUlf 


OCA 




SXGNX 


/ZERO SWITCH 


0276 


02707 


1035 




TAD 




EXPVAL+l 


/IS EXPR NEGATIVE 


0277 


02710 


7710 




SPA 


CIA 






0300 


02711 


4352 




JMS 




COMPL 


/YES, COMPLEMENT IT 


0301 


02712 


1372 




TAO 




(«31 




0302 


02713 


3010 




DC A 




NBITS 


/BIT COUNT 


0303 


02714 


3067 




OCA 




EXTMP 


/ZERO RESULT (HIGH 24 BITS) 


0304 


02715 


3070 




OCA 




EXTMP2 


/RECEPTACLE 


0305 


02716 


1067 


MULOOP, 


TAO 




EXTMP 


/ROTATE 48 BIT REGISTER 


0306 


02717 


7110 




CLU 


RAR 
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TAD 
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0354 








N6ITS-X10 





0355 








EJECT 








02772 


7747 












02773 


2424 












02774 


1074 












#2775 


1075 












02776 


4053 












02777 


7737 










0356 








PAGE 






0357 


03000 


0000 


CHKLIT, 


0 




/CHECK FOR LITERAL 


0360 


03001 


3362 




OCA 


PAGENO 


/ZERO PAGE NUMBER 


0361 


03002 


3100 




DC A 


LITRL 




0362 


03003 


4573 




JMS I 


CGETCHR 


/GET CHARACTER 


0363 


03004 


5600 




JMP I 


CHKLIT 


/NO LITERAL 


0364 


03005 


1377 




TAD 


C-250 


/CHECK FOR C 


0365 


03006 


7450 




SNA 






0366 


03007 


2362 




ISZ 


PAGENO 


/CURRENT PAGE LITERAL 


0367 


03010 


7440 




SZA 




/SKIP IF ALREADY ZERO 


0370 


03011 


1376 




TAD 


C-63 


/CHECK FOR t 


337 1 


03012 


7450 




SNA 






0372 


03013 


2100 




ISZ 


LITRL 


/SET SWITCH 


0373 


03014 


7640 




SZA CLA 






0374 


03015 


4561 




JMS I 


CBACK1 


/PUT BACK NON (t 


0375 


03016 


5600 




JMP I 


CHKLIT 




0376 


03017 


0000 


CRLINK, 


0 




/CREATE LINK 


0377 


03020 


1217 




TAD 


CRLINK 


/FIX RETURN ADDR 


0400 


03021 


3232 




DCA 


CRLIT 




0401 


03022 


1045 




TAD 


OPCODE 


/SET INDIRECT BIT 


0402 


03023 


1375 




TAO 


(400 




0403 


03024 


3045 




DCA 


OPCOOE 




0404 


03025 


7201 




CLA IAC 






0405 


03026 


3362 




OCA 


PAGENO 


/SET INDICATOR 


0406 


03027 


4572 




JMS I 


[ERMSG 


/*LG* 


0407 


03030 


1407 




1407 






0410 


03031 


52^5 




JMP 


NOTP0 




0411 


03032 


0300 


C«LIT, 


0 




/CREATE LITERAL WITH TYPE EXPTYP 


0412 












/VALUEJEXPVAL* IN PAGEIPAGENO 


0413 


03033 


1075 




TAD 


FPPSWT 


/FP LITERAL ? 


0414 


03034 


7640 




SZA CIA 






0415 


03035 


5774 




JMP I 


CFPPLIT 




0416 


03036 


1362 




TAD 


PAGENO 


/CHECK FOR PAGE 0 


0417 


03037 


7640 




SZA CLA 






0420 


03040 


5245 




JMP 


NOTP0 


/NOT A PAGE 0 LITERAL 


0421 


03041 


1373 




TAD 


CP0L8UF 


/SET BASE TO PAGE 0 LIT BUFFER 


0422 


03042 


3364 




DCA 


LITBAS 




0423 


03043 


1372 




TAD 


C17 


/ASSUME FIRST 20 WORDS USED 


0424 


03044 


5251 




JMP 


DOLIT 


/GO DO LITERAL 


0425 


03045 


1371 


NQTP0 1 


TAD 


(CPLBUF 


/CURRENT PAGE LIT BUFFER 


0426 


03046 


3364 




DCA 


LITBAS 




0427 


03047 


1027 




TAD 


L0CTR2 


/NUMBER OF WORDS USED IN PAGE 


04365 


03050 


8-141 




AND 


E177 




0431 


03051 


3365 


DOLIT, 


OCA 


NWUSED 




0432 


143052 


1362 




TAD 


PAGENO 


/GET POINTER TO 


0433 


03053 


1130 




TAD 


[P0LIT 


/LITERAL BOUNDARY 



i4434 


#3054 


3 *Jb3 




OCA 




X P A G fe 




043b 


03055 


1763 




TAP 




XPAGE 


/DISPLACEMENT OF LIT BUFR • 1 


14436 


0 3 H 5 6 


3 366 




DC A 




LITPTR 


/INTO LITPTR 


0437 


03057 


1037 




TAD 




EXPTYP 


/TYPE IS ACTUALLY SIZE OF LITERA 


0 4 4 0 


03061* 


7440 




SZA 






/CHECK FOR UNDEFINED 


0441 


0 3 0 6 1 


5264 




JMP 




. +3 


/OK. ITS DEFINED 


0442 


03062 


3036 




OCA 




EXPV AL+2 


/UNDEFINED* ASSUME ZERO 


0443 


0 3063 


700 1 




I AC 






/AND ADDRESS TYPE 


0444 


03064 


704 1 




CIA 








0445 


03065 


3037 




OCA 




EXPTYP 


/GET THE COMPLEMENT 

' 1 1 1 ■ mm W V ! 1 1 w>L< IUI' 1 


0446 


0306b 


1370 




TAD 




CEXPV AL+2 




0447 


03067 


1037 




TAD 




EXPTYP 


/GET POINTER TO VALUE 

r V W 1 1 Will 1 wn 1W K rtJr mu 


045?, 


03070 


3012 




OCA 




X 12 


/MIN*US ONE INTO X12 


0451 


0307 1 


1037 


NOT I T » 


tad 




EXPTYP 


/CHECK FOR END OF TABLE 


0452 


03072 


7041 




CIA 








0453 


03073 


1 366 




TAD 




LITPTR 


/POINTER+SIZE 


0454 


03074 


£145 




AND 




[200 


/SHQULO BE LESS THAN 200 


0455 


03075 


7640 




SZA 


CLA 






0456 


03076 


5331 




JMP 




NEWLIT 


/ENTER NEW LITERAL 


0457 


03077 


1037 




TAD 




EXPTYP 


/PUT COPY OF LENGTH 


0460 


23100 


3066 




OCA 




LTEhP 


/INTO LTEMP 


0461 


03101 


1012 




TAO 




X 12 


/AND COPY OF PROTOTYPE POINTER 


0462 


03102 


3015 




DCA 




X 1 5 

*^ X w 


/INTO X15 


0463 


03103 


1366 




TAO 




LITPTR 


/NOW GET POINTER 


0464 


03104 


1 364 




TAD 




LITBAS 


/TO TABLE 


0465 


03105 


301 i 




OCA 




X 1 1 

1 X X 


/FOR COMPARISON 


0466 


03106 


2366 




ISZ 




LITPTR 


/INCREMENT POINTER 


0467 


03107 


1411 


TSTLIT, 


TAD 


I 


X 1 1 


/CiET WORD OF LITERAL 


0470 


03110 


7041 




CIA 








»47 1 

it ~ f X 


03111 


1415 




TAO 


T 

m 


X 1 5 


/COMPARE WITH PROTOTYPE 


3472 


03112 


7640 




SZA 


CLA 

w w n 






0473 


03113 


5271 




JMP 




NOTIT 


/NOT IT. SLIDE POINTER AND RETRY 


0474 


03114 


2<466 




ISZ 




LTEMP 


/BUMP COUNTER 


0475 


03115 


5307 




JMP 




TSTLIT 


/LOOP IF MORE 


0476 


03116 


1362 


LIT ADR # 


TAO 




PAGENO 


/PAGE 0 ? 


0477 


03117 


7540 




SZA 


CLA 






0500 


03120 


1027 




TAO 




LOCTR2 


/NOi CURRENT PAGE. GET ADDRESS 


050 1 


03121 


0142 




AMD 








0502 


03122 


1366 




Tad 




LITPTR 

v« x 1 r in 


/PLUS PAGE DISPLACEMENT 


0503 


03123 


3036 




DCA 




EXPV AL+2 


/INTO VALUE 


0504 


03124 


1026 




TAD 




LOCTR 1 




0505 


03125 


3035 


RETLIT , 


OCA 




EXPVAL+1 




0506 


03126 


7201 




CLA 


I AC 




/SET TYPE TO ADDRESS 


0507 


03127 


3037 




OCA 




EXPT YP 




0510 


03130 


5632 




JMP 


I 


CRLI T 




0511 


03131 


1763 


NtwLIT / 


TAO 


I 


XPAGE 


/MOVE LITERAL BOUNDARY DOWN 


0512 


03132 


1037 




TAD 




EXPTYP 




0513 


03133 


30 1 0 




DCA 




X 1 0 


/ADDRESS DF NEW I ITFRAL 


0514 


C* 3 1 34 


1365 




TAD 




Ki u, u s E n 

Ft U V & W 


f lintwn run r«ot uv tn"UL.u 


0515 


03135 


7241 




CIA 








0516 


03136 


1010 




TAO 




X10 




0517 


03137 


7700 




SKA 


CLA 






052n 


03140 


5345 




JMp 




. + 5 


/NOT FULL 


0521 


03141 


4572 




JMS 


I 


[ERMSG 


/*PQ* 



3522 


03142 


2317 




2017 




0923 


03143 


3*336 




OCA 


EXPVAL+2 


3524 


03144 


5325 




JMP 


RETLIT 


0525 


03145 


1010 




TAD 


X10 


0526 


03146 


3763 




OCA X 


XPAGE 


0527 


03147 


1763 




TAO I 


XPAGE 


0530 


03150 


1364 




TAO 


LITBAS 


0531 


03151 


3010 




DCA 


X10 


0532 


03152 


1412 




TAD I 


X12 


0533 


03153 


3410 




DCA I 


X10 


0534 


03154 


2037 




ISZ 


EXPTYP 


0535 


03155 


5352 




JMP 


.-3 


0536 


Dt \ 1 

f* v * V v 


1 7 H 




TAD I 


XPAGE 


at «» 1 7 


nil ft* 

¥3 *5 1 0/ 


"J f ft f* 1 

/ 3t5 1 




I AC 




0540 


03160 


3366 




DCA 


LITPTR 


0541 


03161 


5316 




JMP 


LITADR 


0542 


03162 


0000 


PAGENQ, 


0 




0543 


03163 


0000 


XPAGE t 


0 




0544 


03164 


0000 


L1TBAS, 


0 




054S 


03165 


0000 


NWUSEO, 


0 




0546 


03166 


0000 


LlTPTR, 


0 





/ZERO ADDRESS 

/SET UP POINTER FOR MOVE 
/MOVE LITERAL INTO PLACE 

/SET UP LITERAL ADDRESS 
/RETURN LITERAL ADDRESS 



0547 EJECT 





d 1 7ft 


\r iA 3 8 

Y, M V* 














0 3 1 7 1 


o <& P ^ 














ft3 1 79 


"PIP 1 f 














B 0 1 / 0 
















OS 3 1 7 4 


0 fi !c !£' 














03 1 7 s * 


t" 400 














W w 1 / D 


77 1 5 














ft3 1 77 


7530 




















PAGE 






ft 55 1 
A 


ft 3900 


790 1 

f ft*- A 


r r r U A I f 


CLA 


IAC 






0559 


ruci' i 


30 78 




OCA 




r rrfl'U 




PI 583 


If Oct) c 


7940 

f ft "» l! 




CLA 


CMA 




/WHAT PA^Q 9 


ft 554 


0 3 9 (A 3 






TAO 




P A S S N fl 




ft 555 

!£? vj v> >J 




765P 




SNA 


CLA 






ft 55h 

V) *J \J w 


0390 5 


5777 




JMP 


I 




/PASS 1 firiNlT RFKIFPATF FP 1 TTFRAI 


0557 


ft 3 9 0 8 

£< w ft <) O 


4 38 8 




Jh3 




T YPF3 


/CKTp re ep rip ADDP TYPF 


056!?? 


ft 3 9 0 7 


7001 




IAC 






/DP TYPF 


0561 


032. 10 


1376 




TAO 




CFPLIST 


/POINTER TO FP LITERAL BUCKET 


** W fi» 


83211 

w w c* x * 


6211 

w ft * A 




CDF 




FL01 




0 583 


39 1 9 


3353 


FPLQDK . 

I r Ki w r\ | 


OCA 




GL0F P 


/START ADDR DF CURRFNT Rl DTK 


0564 


032 1 3 


1753 




TAO 


I 


0L0F P 


/ADDR OF NFXT BLOCK 


0565 


03214 


7460 




SNA 








0566 


032 1 5 


5256 




JMP 




NEWFPL 


/IF 0 THEN END OF LIST 


0567 

16 « O f 


K! V ft A V? 






OCA 




K 1 0 






039 1 7 


1 A 1 (f 
A *t A V 




TAO 


I 


VI M 

A A 10 


/RPT nT^PI APFMFMT 


057 1 


«(* V & d *^ 


3066 




OCA 




LTEMP 

U 1 WIT 


/SAVE IT 


0572 


03921 

"J W C ft A 


4355 




JMS 




T v P P 3 




0573 


03929 


5930 




JhP 




r M P 2 W 0 

U 1 ' r ft •* V 


/DP. OWI LIT 9 WORDS 


0574 


03993 


1 034 




TAD 






/DO 3 WORD TOMPAPF 


0575 


03224 


7141 

f A A 




CIA 


CLL 






a576 


03995 
Bute j 


1 ** A *• 




TAD 


I 


V 1 0 
AID 




01577 


0 3998 


7840 

f VIC 




SZA 

W f% 


CLA 






01 6 C» &t 


03997 


5959 

■Jft M ft 




JHP 




DTFFPI 


/MOT THF SAMF 


060 l 

D W !P A 


03930 

rj w C w s-' 


1 035 

A w v w 




TAD 




F VP y AL+ 1 




0609 


03231 


7141 
' A ■» A 




CIA 


CLL 






0603 


03939 


1410 
A *♦ A f 




TAD 


I 


y 1 0 

A i IP 




iq m io *r 


03933 

* O t U U 


7 84M 




SZA 


CLA 






DISH'S 


03934 
W w c w *? 


5959 

v C w ft 




JMP 




D IFF PL 




0606 
y y i! v 


03935 

V W ft w «J 


1038 




TAD 




py pu ai *9 




01807 

w vie f 


03938 


7 141 




CIA 


CLL 






ft fi 1 


ft3937 


1 4 1 0 
1 1 1 ? 




TAD 


I 


a in 




0611 


03240 


7640 




SZA 


CLA 






06 1 9 


03941 


5959 

w C ft 




JMP 




0 T F F P I 




08 1 3 


0 3949 


1 088 

1 CDC 


& i r r u f 


TAO 






/(1FT 1 TTFftAI DTSPI APFMFMT 


ft 6 1 4 


03943 


89c» 1 




CDF 




Fi nft 




06 i 5 


03244 


7 100 




CLL 






/ADO LIT0RG ADDR 


0616 


03245 


1031 




TAO 




LITRG2 




0617 


03246 


3036 




OCA 




EXPVAL+2 


/ ANO MAKE IT THE NEW EXPVAL 


0620 


03247 


7004 




RAL 








0621 


03250 


1030 




TAD 




LITRG1 




0622 


03251 


5777 




JMP 


I 


CPETLIT 




0623 


03252 


7430 


OIPFPL, 


SZL 









0624 


03253 


5256 




JMP 




NE^FPL 


/INSERT NE* LITERAL HERE 


0625 


03254 


1753 




TAD 


I 


QLDFP 


/SET START ADDR OF THIS BLOCK 


0626 


03255 


5212 




JMP 




FPLOOK 




0627 


03256 


1753 


NEkFPL, 


TAD 


I 


QLDFP 


/HOOK IN NEW FP LITERAL 


0630 


03257 


3416 




DC A 


I 


NEXT 




0631 


03260 


1016 




TAD 




NEXT 




0632 


03261 


3753 




DCA 


I 


QLDFP 




0633 


03262 


1354 




TAD 




FPLNUM 


/PUT IN DISPLACEMENT 


0634 


03263 


3416 




DCA 


I 


NEXT 




0635 


03264 


4355 




JMS 




TYPE3 


tt OR 3 WORDS 


0636 


03265 


5270 




JMP 




,+3 




0637 


03266 


1034 




TAD 




EXPVAL 


/STORE VALUE 


0640 


03267 


3416 




DCA 


I 


NEXT 




0641 


03270 


1035 




TAD 




EXPVAL+1 




0642 


03271 


3416 




DCA 


I 


NEXT 




0643 


03272 


1036 




TAD 




EXPVAL+2 




0644 


03273 


3416 




DCA 


I 


NEXT 




0645 


03274 


1016 




TAD 




NEXT 


/CHECK FOR ST OVERFLOW 


0646 


03275 


7100 




cll 








0647 


03276 


1133 




TAD 




£12 




065<4 


03277 


7620 




SNL 


CLA 






0651 


03300 


5304 




JMP 




. + 4 


/OK, NOT FULL 


0652 


03301 


4527 




JMS 


I 


CERMSG1 




0653 


03302 


2324 




2324 




/♦ST* 


0654 


03303 


5775 




JMP 


I 


CRETSYS 


/SINCE ITS FATAL, ABORT 


0655 


03304 


1354 




TAD 




FPLNUM 


/SAVE DISPLACEMENT 


0656 


03305 


3066 




DCA 




LTEMP 




0657 


03306 


2354 




ISZ 




FPLNUM 


/BUMP DISPLACEMENT BY 3 


0660 


03307 


2354 




IS2 




FPLNUM 




0661 


03310 


4355 




JMS 




TYPE3 


/OR MAYBE 2 


0662 


03311 


7410 




SKP 








0663 


03312 


2354 




ISZ 




FPLNUM 




0664 


03313 


5242 




JMP 




RETFPL 




0665 


03314 


M000 


DLITS, 


0 






/DUMP FP LITERALS 


0666 


03315 


7144 




CLL 


CM A 


RAL 


/2 LISTS 


0667 


03316 


3355 




OCA 




TYPE3 


/SAVE COUNT IN SUBR ENTRY 


0670 


03317 


1376 


DLITS2, 


TAD 




CFPLIST 


/FP LITERAL BUCKET 


0671 


03320 


6211 




CDF 




FLD1 




0672 


03321 


3353 


FPLDMP, 


DCA 




QLDFP 




0673 


03322 


1753 




TAD 


I 


QLDFP 


/GET ADDR OF NEXT FP LITERAL 


0674 


03323 


7440 




SZA 








0675 


03324 


5333 




JMP 




MORFPL 




0675 


03325 


6201 




CDF 




FLD0 




0677 


03326 


7201 




CLA 


IAC 




/SET AC»1 


0703 


03327 


2355 




ISZ 




TYPE3 


/FINISHED YET 


0701 


03330 


5317 




JMP 




0LITS2 


/NO, DO DP LIST 


0702 


03331 


7200 




CLA 








0703 


03332 


5714 




JMP 


I 


DLITS 


/YES, RETURN 


0704 


03333 


3010 


MQRFPL, 


DCA 




X10 


/SAVE POINTER 


0705 


03334 


1410 




TAD 


I 


X10 


/GET DISPLACEMENT 


0706 


03335 


7100 




CLL 








0707 


03336 


1031 




TAD 




LITRG2 


/ADD LITERAL ORG 


all 


^ ' w v w r 


3027 




DCA 




LOCTrt? 


/AND PUT IT INTO LOCATION COUNTE 


071 1 


03340 


7004 




RAL 









01 7 1 3 


e> 0 0 *» J 


1 (IOv 




1 *u 




i t t P n i 
U A I " Is 1 




B f 1 0 


lf< 0 0 ** c 


l/i 9 ft 
0 10 « u 




U U A 




i n r t u 1 
U w U ( n i 




Ski \ A 


nit 


1 O 3 3 




Tin 




Type l 

I t r c o 


re. UK 0 nUKUd S 


» / 1 3 


<5 00 «1 « 


7 Wi5l 1 












r /i 7 1 ft 


•4 "Z ^ K 
t?00~3 


7 f\AtA 

/ O ** K' 




Q 7 A 


n a 






ffl / 1 / 


f.* 1 1 A ft 

l£> 0 0 *» 0 


^ 1 ft 1 




I M C 

J no 




f 1 1 1 T C □ 1 


/I MKfcfc 


(A 7 O r»i 


SnOO*»/ 


4 4 ft 1 

»0D0 




rue 
J"3 




niiTCDl 
UU 1 r r U 




W f C. 1 


i/i S 01 
10 O 0 >■» w 


A ^ ft 




TUB 

J no 




UU 1 r r U 




(31 7 0 0 


ffl ^ ^ *S 1 


1 7ft"* 

1/30 




T»n 
1 AU 


X 


uuur r 


/rUllNIHn IU Nt* 1 DLUUK 


10/ £0 


rail KO 
W 003 c 






g nr 




P P 1 HMD 






IpOOOO 




uuur r # 


n 

0 








tit 7 9 *5 

io/ c 3 


n UK/ 
W 003* 


(A IX Gift 


P P 1 hi 1 i M 


ft 








01 7 9 (S 
It! t C a 


ftll«?IS 
POO Jv> 


Xf: iA (A Ci 

*• t! if i If! 


t y p f i , 


V} 






/ci/ to n Ki Anne dp pp 
/OR i»r UN A U U n \)n rr 


'71 7 O 7 

«/ cf 


nil St 
100030 


71 ji> 




UUu 


U I*! A 


U A 1 
K AU 


/•Z 


t'jt 7 1 rJi 


r» 1 1 ft 7 
55000/ 


1 i'i 1 7 
1 #0/ 




T AO 




C V D T V D 




01 7 1 1 
to/ 0 I 




7 ft t> 




C 7 A 

0 L A 


UU A 








eiOOOl 


0 K ft 
c 033 




T ^7 

lot 




Type 1 

1 T rto 


/MU 1 1 Ir t £ 


oi7 11 
63/ 00 




ft7ftft 
0/30 




lug 


I 


1 TrtO 






COO vO 


(a (A Pi 


ni i t p pi . 


10 






/rui !"Uny rrcun uiickauo 


0735 


03364 


1410 




TAQ 


I 


X10 


/GET WORD 


0736 


0336S 


680i 




CDF 




FLD0 




0737 


03366 


4550 




JMS 


I 


COUTWRO 




0740 


03367 


6211 




CDF 




FL01 




0741 


0337P! 


5763 




JMP 


I 


OUTFPU 





0742 EJECT 





03375 


4131 














03376 


0020 














03377 


3125 












0743 








PAGE 






0744 


03400 


0000 


LOOKUP, 


0 






/SYMBOL TABLE LOOKUP 
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BUCKET 
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1451 
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BUCKET 
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OCA 




0LDN3 


/THIS IS PTR OF PREV ENTRY 


0753 


03407 


1404 




TAD 


I 
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JMP 
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LTEMP 


/ADDR OF TYPE WORD 


1004 


03440 


1466 
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JMP I 


GETNAM 


/RETURN 
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BACK 1 


/PUT CHAR BACK 
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03661 


1374 




TAD 
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7510 




SPA 
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LETTER 


/YES, INCR RETURN 
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C*3664 


1373 




TAD 




C333 


/RESTORE CHAR 
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JMP 
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LETTER 


/RETURN 
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03666 
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NLETR f 


TAD 
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/RESTORE NON-LETTER 
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03667 


5655 




JHP 
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LETTER 


/RETURN 
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0000 


GNC, 
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/GET A CHAR IF LETTER OR DIGIT 


1223 


03671 


4311 




JMS 




GETCHR 
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03672 


5244 




JMP 




NDONE 


/NONE LEFT 


1227 


03673 


4255 




JMS 




LETTER 


/IS IT A LETTER? 


1230 


03674 


5277 




JHP 
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/NO 


1231 


03675 


0167 




AND 
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/ONLY 6 BITS 


1232 


03676 
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JMP 
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/RETURN 


1233 


03677 
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TAD 
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/CHECK FOR DIGIT 
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03703 


7500 




SNA 








1235 


03701 
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JMP 
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TAQ 




E12 




1237 
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03704 
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JMP 
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03705 
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TAD 




C60 


/OK, MAKE IT 60-71 
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03706 


5670 




JMP 


I 


GNC 


/RETURN 
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03707 


4200 




JMS 




BACK 1 


/PUT BACK NON LETTER/DIGIT 


1244 


03710 


5244 




JMP 




NDONE 


/NAME DONE 


1245 


03711 


0000 


GETCHR, 
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/GET NEXT CHAR 


1246 


03712 


2-420 




ISZ 




NCMARS 


/BUMP COUNT 


1247 


03713 


5317 




JMP 
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/YES VIRGINIA, THERE ARE MORE 
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03714 


7240 


GETC2, 
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/RESET COUNT 
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3020 
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NCHARS 


/TO MINUSl 
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03716 


5711 




JMP 
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GETCHR 


/RETURN WITH NO SKIP 


1253 


03717 


1417 




TAD 


I 


CHRPTR 


/GET CHAR 
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03720 
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TAD 




£-240 


/CHECK FOR BLANK 


1255 


03721 


7450 




SNA 








1256 


03722 
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JMP 




BLANK 


/YES, BLANK 


1257 


03723 


1370 




TAD 




C-7 


/CHECK FOR TAB 
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03724 


7450 




SNA 








1261 


03725 
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JMP 




BLANK 


/SAME AS BLANK 


1262 


03726 


1367 




TAD 




(247-273 


/CHECK FOR SEMI COLON 


1263 


03727 


7450 




SNA 








1264 


03730 


536E 




JMP 




SEMICL 


/YUP1 


1265 


03731 


1366 




TAD 




(273 


/FIX CHAR 


1266 


03732 


2311 




ISZ 




GETCHR 


/INCR RETURN 


1267 


03733 


5711 




JMP 


I 


GETCHR 


/RETURN 


1278 


03734 


2020 


BLANK, 


ISZ 




NCHARS 


/GET NEXT CHAR 


1271 


03735 


7410 




SKP 








1272 


03736 


5314 




JMP 




GETC2 


/BLANKS AT END OF LINE *CR 


1273 


03737 


1417 




TAD 


I 


CHRPTR 




1274 


03740 


1 140 




TAD 




C-240 


/IS IT BLANK? 
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TAD 




(-7 


/IS IT TAB ? 


1300 


03744 


7450 




SNA 
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03745 


5334 




JMP 




BLANK 


/YES, TRY AGAIN 



13*5 2 


03746 


1 3*5 


TAD 




C-10 


1303 


1*37*7 




SNA 






1304 


P3750 


5314 


JNP 




GETC2 


1 3e5 


03751 


136 4 


Tal) 




(257-273 


I3eb 


£3752 


7550 


SNA 


CLA 




1307 


03753 


5360 


JMP 




StMlCL 


I3lti 


03754 




JMS 




BACK 1 


1311 


03755 


1164 


TAD 




[240 


1312 


03756 


2311 


ISZ 




GETCHR 


1313 


03757 


5711 


J*p 


1 


GETCHR 


1314 


037625 


72*1 SfcMICL, 


CIA 


I AC 




1315 


03761 


3064 


DC A 




scsn 


1316 


03762 


4200 


JMS 




BACK 1 


1317 


03763 


5711 


JHP 


I 


GETCHR 



/IS IT SLASH 7 

/YES, (BLANK. OR. TAB) SLASHsCR 
/IS IT SEMI COLON ? 

/YES 

/NONE OF THESE, PUT IT BACK 
/AND RETURN A SINGLE BLANK 



/SET SEN I COLON SWITCH 



/PUT* BACK SEMI COLON 



1320 








EJECT 






03764 


7764 










83765 


7770 










03766 


0273 










03767 


7754 










03770 


7771 










03771 


0*160 










03772 


0301 










03773 


0333 










03774 


7746 










03775 


7477 










03776 


77m 










03777 


1*052 








1321 








PAGE 




1322 


04000 


k'000 


FIXOPC, 


0 




1323 


04001 


1046 




TAO 


INDEX 


1324 


04002 


7650 




SNA CLA 




1325 


04003 


5216 




JMP 


ZRQNDX 


i3£6 


040^4 


7248 




CLA CM A 




1327 


04005 


1055 




TAO 


LA5T0P 


133(9 


04006 


7650 




SNA CLA 




1331 


04007 


1 165 




TAO 


C1U0 


1332 


04010 


1045 




TAD 


OPCODE 


1333 


04011 


3045 




OCA 


OPCODE 


1334 


04012 


1036 




TAO 


EXPVAL+2 


1335 


04013 


0156 




AND 


17 


1336 


04014 


7106 




CLL «TL 




1337 


04015 


7004 




RAL 




1340 


04016 


1045 


ZRQNOX, 


TAO 


OPCODE 


1341 


04017 


1377 




TAO 


(400 


1342 


04020 


3045 




OCA 


OPCODE 


1343 


04021 


5600 




JMP I 


FIXOPC 


1344 


04022 


0022 


BUCKTS, 


AL 1ST 




1345 


04023 


*347 




8LIST 




1346 


04024 


0055 




CLIST 




1347 


04025 


0126 




OLIST 




1350 


04026 


0141 




ELIST 




1351 


04027 


0154 




FLIST 




1352 


04030 


0376 




GLIST 




1353 


04031 


0377 




HL 1ST 




1354 


04032 


0405 




ILIST 




1355 


04033 


0451 




JLIST 




1356 


04034 


0560 




KLIST 




1357 


04035 


0605 




LLIST 




1360 


04036 


0637 




MLIST 




1361 


04037 


0640 




NLIST 




1362 


04040 


0646 




OLIST 




1363 


04041 


0666 




PLIST 




1364 


04042 


0674 




QLIST 




1365 


04343 


0675 




RL 1ST 




1366 


04044 


0746 




SLIST 




1367 


04045 


1036 




TL 1ST 




1 370 


04046 


1126 




ULIST 





/COMBINE OPCODE PARTS 
/CHECK INDEX SWITCH 

/IF ZERO, NO INDEX REG 

/IF INDEX, CHECK FOR INCP 

/YES, PUT ♦ BIT ON 
/COMBINE WITH OPCODE 

/GET INDEX REG. EXPR 

/ONLY 3 BITS 

/SHIFT INTO POSITION 

/ADD OPCODE 
/TURN ON TYPE BIT 
/SAVE OPCODE 
/RETURN 
/BUCKET LIST 



1371 


m 4 0 4 7 


1 127 




V'LIST 






1372 


% 4 a 5 £5 


11 3 & 




WLIST 






1 373 


pi 405 1 


1131 




L13TX 






1 37 -a 


#4052 


11 37 




YL 1ST 






1375 


id! 40 5 3 


1 14H 




ZIIST 






1376 


04054 


7 54 k! 


OPK'BRS, 


-240 






1377 


04055 
04056 


0 6 
7525 




6 

-253 






14141 


4057 


fc0B i 




1 






14?; § 


^4060 


7 523 




-255 






140 3 


04061 


W 4 fr) g 




2 






14£4 


04062 


7526 




-252 






1406 


P*4063 


lr-003 




3 






1406 


04064 


7521 




-257 






14^7 


04065 


0 0 £?. 4 




4 






1410 


04066 


7532 




-246 






1411 


045567 


0 0 0 & 




5 






1412 


04070 


7537 




-241 






1413 


04071 


0006 




6 






1414 


04072 


0 0 W 0 




0 






1415 


04073 


0000 


CKKILL, 


0 




/TEST FOR CHAR ON TTY 


1416 


04074 


6331 




KSF 




/CHAR TYPED ? 


1417 


04075 


5673 




JHP I 


CKKILL 


/NO* RETURN 


1420 


04076 


6036 




KR3 




/READ CHAR 


1421 


04077 


1376 




T AO 


C-214 


/CONTROL L? 


1422 


04100 


7440 




SZA 






1423 


04101 


5305 




JMP 


t+4 


/NO 


1424 


04102 


3061 




OCA 


LISTSW 


/YES, STOP LISTING 


1425 


04103 


3062 




DCA 


LSTGN 




1426 


04104 


5673 




JMP I 


CKKILL 


/RETURN 


1427 


04105 


1375 




TAO 


(214-204 


/CONTROL D? 


1430 


04106 


7640 




SZA CL.A 






1431 


04107 


5673 




JMP I 


CKKILL 


/NO* RETURN 


1432 


041 10 


6201 




CDF 


FLOG 




1433 


0411 1 


1103 


ENQXX, 


TAO 


8BLOCK 


/GET REAL BLOCK NUMBER 


1434 


04112 


1104 




TAO 


&FUDGE 


/OF LAST BLOCK 


1435 


04113 


3317 




OCA 


ENDBLK 


/AND WRITE IT OUT 


1436 


04114 


4502 




JMS I 


DIALWR 




1437 


04115 


0001 




1 






1440 


04116 


0015 




BINARB 






1441 


041 17 


0000 


END8LK , 


0 






1442 


04120 


0001 




1 






1443 


04121 


1374 




TAO 


(57 


/WRITE OUT CORE USE TABLE 


1444 


04122 


1104 




TAO 


8FUPGE 




1445 


04123 


3327 




OCA 


USEPLK 




1446 


041-24 


4502 




JMS I 


DI ALmR 




1447 


04125 


0001 




1 






1450 


04126 


0014 




USE8 






1451 


04127 


0000 


USfcBLK , 


0 






1452 


04130 


0001 




1 






1453 


04131 


7200 


RETSYS, 


CLA 






1454 


04132 


4773 




JMS I 


CPAGEJ 


/EJECT PAGE 


1455 


04133 


6041 




TSF 




/WAIT FOR TTY 


1456 


04134 


5333 




JMP 


.-1 





1457 


04135 


1106 


7 AO 




SFUDGE 


1460 


04136 


1372 


T AO 




(-46 


1461 


84137 


33*3 


OCA 




SYSBLK 


1462 


04140 


45^1 


JMS 


I 


DIALHD 


1463 


04141 


0000 


0 






1464 


t?41 42 


0036 


36 






1465 


04143 


0000 SYSBLK, 


0 






1466 


04144 


0002 


2 






1467 


04145 


6213 


6213 






1470 


04146 


5771 


JMP 


I 


{7777 


1471 


04147 


0000 PI/ 


0 






1472 


04150 


0167 


AND 




[77 


1473 


24151 


f A * 1 

/" «tv?'i» 


SNA 






1474 


04152 


5356 


JMP 




.+4 


1475 


04153 


1370 


T AO 




C-40 


1476 


04154 


7510 


SPA 






1477 


04155 


1165 


TAD 




[100 


1500 


04156 


1164 


TAD 




£240 


1501 


04157 


4576 


JMS 


I 


CPRINTC 


1502 


04160 


5747 


JMP 


I 


PI 



/COMPUTE FUDGED BLOCK FOR SYSTEM 
/ONLY J. 6, KNOWS THE REASON FOR 



/READ IN SYSTEM 
/INTO 17000 

/RETURN TO SYSTEM 

/CONVERT TO ASCII AND PRINT 

/ZERO CHAR PRINTS AS BLANK 



15?. 3 EJECT 





0 417 $ 


7 7 












#4171 


77 77 












0 4172 


773'd 












04173 


3154 












04174 


■>stf57 












0 417 5 


* : 0 J & 












£4176 


75b4 












04177 












1504 








PAGE 






1 50 5 


0420? 




PR! NIC, 


0 




/PRINT CHAR ON ANALEX* LP08 


1 6t* 6 


0 4 g $ I 


7 4 50 




SNA 






I5fc"7 


£4202 


5223 




JMR 


CRLF 


/ZERO IS CR-LF 


1 5 1 \fi 


04203 


1377 




TAO 


(•247 




1511 


04284 


744tf 




SZA 






1512 


04205 


5215 




J(*P 


NOT AB 




1 5 1 i 


04206 


1164 




TAO 


£240 


/DO TAB 


1514 


04207 


4245 




JMS 


PCHR 




1515 


65421?! 


22^1 




1SZ 


TABCNT 




15ie> 


8421 1 


52*6 




JHP 


.-3 


/KEEP GOING UNTIL TAB STOP 


1517 


84212 


1376 


SETTAB, 


TAQ 


C-10 




1520 


04213 


3241 




DC A 


TABCNT 


/SET TAB COUNTER 


1521 


04214 


5606) 




JHP I 


PRINTC 




1522 


04215 


1 174 


NOT AB > 


TAO 


£247 


/FIX CHAR 


1523 


04216 


4245 




JHS 


PChR 




1524 


04217 


4560 




JHS I 


[CKKILL 


/CHECK FOR ABORT 


1525 


04220 


2241 




ISZ 


TABCNT 




1526 


04221 


5600 




JMP I 


PRINTC 


/RETURN 


1527 


04222 


5212 




JHP 


SETT AB 


/RESET TAB COUNT 


1530 


04223 


3242 


CHLF, 


DC A 


LSIZE 


/HAKE SURE THERES ROOH 


1531 


04224 


1375 




TAO 


C215 


/OUTPUT CR-LF 


1532 


04225 


4245 




JHS 


PCHR 




1533 


04226 


1374 




TAD 


C212 




1534 


04227 


4245 




JHS 


PCHR 




1535 


04230 


28t*7 




ISZ 


PAGSIZ 


/NEW PAGE ? 


1536 


04231 


5236 




JHP 


NEJECT 


/NO 


1537 


04232 


1025 




TAD 


SIZPAG 


/RESET COUNT 


1540 


04233 


3007 




DC A 


PAGSIZ 




1541 


04234 


1373 




TAO 


C214 




1542 


04235 


4245 




JHS 


PCHR 


/START NEW PAGE 


1543 


04236 


1243 


NEJECT , 


TAD 


WIDTH 


/SET WIDTH OF PRINTER 


1544 


04237 


3242 




DCA 


LSIZE 




1545 


04240 


5212 




JHP 


SETT AB 


/RESET TAB SETTING 


1546 


04241 


7770 


TAbCNT, 


"10 






1547 


04242 


k? $ $ 0 


LSIZE» 


0 






1550 


04243 


7667 


W I P T H f 


• HI 




/WIDTH OF PRINTER IN CHARS 


1551 


04244 


4311 


PC r 


TTY 






1552 


04245 


0000 


PCHR, 


0 




/TAKE CARE OP PRINTER WIDTH 


1553 


04246 


3257 




DCA 


ACHR 


/SAVE CHAR 


1554 


•24247 


2242 




ISZ 


LSIZE 


/ANY ROOH LEFT 


1555 


04250 


5254 




JHP 


NOCRLF 


/HQ, GO 


1556 


04251 


7240 




CLA Cma 




/TRUNCATE LINE 


1557 


04252 


3242 




DCA 


LSIZE 





156^ 


^4253 


5645 




JMP I 


pchr 




1561 


04254 


1257 


NQCRLF t 


TAD 


ACHR 




1 562 


04255 


4644 




JMS I 


PC 




1563 


04256 


0040 




J HP I 


PCHR 




1564 


04257 


00?i0 


ACHR | 


0 






1565 


04260 


0 0 0 0 


A N A L, E X , 


0 




/ANALEX PRINTER HANDLER 


i 000 


fA A fi & 4 

04201 


020/ 




OCA 


ACHR 




4 Si 4? 

1067 


04262 


1257 




TAD 


ACHR 


/LINE FEED? 


1 570 


04263 


1372 




TAD 


C-212 




4 « T 1 

1071 


04264 


*7 £ £ 

/ 000 




SNA CLA 






1 0/ e; 


04200 


c cert 

000^ 




t Li q T 

JnP X 


A Kt ft I L. V 

AN AL t X 


/ YES , IGNORE IT 


1 573 


04266 


6661 




6661 




/fcAlT FOR PRINTER 


1574 


04267 


5266 




JMP 


• -1 




l etc 
10/0 


04270 


£ £ £ M 

0002 




6652 




/CLEAR FLAG 


4 K °T CC 

1576 


0427 1 


1257 




tad 


ACHR 


/GET CHAR BACK 


1577 


04272 


1371 




TAD 


C»215 


/END LINE ON CR 


1 00 !>1 


04273 


7450 




SNA 






160 1 


04274 


5305 




4MP 


FINLPB 






Pi a 3 / r> 


700 i 




I A C 




yrMFCK FHR FORM 


4 £ 1 

1603 


rt j A7 t 

(542/0 


7600 




SNA CLA 






4 £ / « A 

1604 


04277 


5304 




JMP 


FINLPB-1 


/PAGE EJECT ON FORM 


4 c n as 


04300 


1257 




TAD 


ACHR 


/PRINT CHAR 


1 606 


0430 1 


6004 




6654 






1607 


04302 


7200 




CIA 






1 0 1 0 


04303 






JMP I 


AN ALEX 




1611 


A lL fh A 

04004 


1 1 00 




TAD 


£7 


/SET CONTROL 


1012 


n it irk ft 


1370 


r INLPo f 


TAD 


C 1 0 




4 £ 4 1 

1613 


A A 'I r\a f 

04306 


6664 




6664 






1614 


04307 


7200 




CLA 






1615 


04310 


5660 




JMP I 


AN ALEX 




1 0 1 0 


04311 


0000 


T T V 

TTY, 


0 






4 <C 4 T 

1617 


04312 


6 *54 1 




TSF 






162?? 


04313 


5312 




JMP 


• -1 




1021 


04314 


O0<4p 




TLS 






4 £ O O 

1022 


n* A 1 4 £ 

0 4310 


*7 *i r -t fit 
'•500 




CLA 






1623 


04316 


571 1 




JMP I 


TTY 




1624 


04317 


0000 


LP08 . 


0 






4 £ £ 

1020 


tx A "t r% n 

04320 


£ £ £ 4 

0061 




6661 






1626 


0432 1 


5320 




JMP 


#-1 




1627 


04322 


6666 




6666 






1630 


04323 


7200 




CLA 






1631 


04324 


5717 




JMP I 


LP08 




1032 


04325 


0000 


ERMSG 1 • 


0 




/PASS 1 MESSAGES 


1633 


04326 


7 2 t-i 0 




CLA 






1634 


04327 


020 1 




CDF 


FLD0 




1635 


04330 


1 320 




TAD 


ERMSG 1 




I tic 

1030 


04001 


1 1 1 £ 

00 0 0 




DC A 


ERH5G 


/COHMONIZE CALL 


4 £ i ~r 

1 637 


04332 


4200 




JMS 


PRINTC 


/CR-LF 


1640 


04333 


1 060 




TAD 


LINENO 


/PRINT LINE NUMBER 


1641 


04334 


ji c *r c 
4070 




JMS I 


[OCTOUT 


/ON PASS 1 MESSAGE 


1 042 


04o3O 


0002 




t tut a 


rKMOG 


/SKIP OVER PA55 TEST 


4 £ jl 1 

1643 


04336 


0000 


ERMSG ■ 


0 






1644 


04337 


6201 




CDF 


F LO0 




/FIX FIELu 


1645 


04340 


7240 




CLA CM A 




/NO MESSAGE ON PASS 1 



1 ft A ft 


!£! *» 0 *• 1 


1 i/l s ft 

1 <t'. U C? 




T A ft 

1 u 








JUS/ 


1/ 4 "4 jl O 


7 ft K &- 
/ y 3 tr- 




3 ft A 








i 031! 1 


<! «t 0 *( 0 


ft -iftt/ 




ftp 
J n r 




" -5 o L' U N 




1 Q D I 


r,i ^ t <j / 
y< m *i 


t W # 




IMC 
una 




Djn T p 
X I s It 


/rKANT CK-Lr 




Big'!? 


1 .71 ft 1 




T A i*1 
1 .* !J 






/I5 UI3I UN 7 


1 ft ft A 
1 o a v? 


W 4 A ft 


7 ft /l (/■ 




S7 ft 

•5 «. a 


u U M 






IPO* 1 




V--I ft<3 




I in 13 

■J ~r 






lUPt 


1 ft ft ft 

1 w ? J 


Dt d ft C-l 
*t O »J 43 


1 ft G* 




Tin 






/N0# rKINT LINE NUMBER 


1 ft ft ft 

1 O 3 iJ 




4 57 p 




IMC 

J no 


1 






1 ft ft7 


<C *» 0 3 C 




p tr o* <; fr. 


1 fl U 






/PKINT * 


1 ft f- ft 
1 O P w 




/i O it* if 
**■ C I it* 




f MC 








1 ft ft 1 




1 7 ^ft 




T A rt 
I Ay 


T 
i 


C n n c b 


/rlHoT CMAR Or LUUfc 




T 1 ** »3 "J <rf 


47 ftft 




1 K 


T 
i 




y 0 0 T Kl T TUP MPCCAPC 


1 6 ft '3 


4 •* K « 
KI *t V w M 


l JU/ 




TAA 
1 1* U 






y OO T W T -ii 

/ rn l (N l * 


1664 


£34357 


42t-fc 




JUS 




PRINTC 




1665 


0436* 


2336 


M5UQUN, 


IS2 




fcRnSG 




1665 


04361 


27 65 




ISZ 


I 


(ERRORS 


/BUMP ERROR COUNT 


1667 


£4362 


0736 




JHP 


I 


ERMSG 




1670 


IS4363 


5736 






I 


ER»SG 





671 






EJECT 








04365 


4762 










04366 


5714 










04367 


0252 










04370 


0010 










04371 


7563 










04372 


7566 










04373 


*214 










04374 


0212 










04375 


0215 










04376 


7770 










04377 


7531 








672 






PAGE 






673 


04400 


0000 DUTwRD, 


0 




/OUTPUT ROUTINE 


674 


04401 


3356 


DC A 


WRD 


/SAVE WORD 


675 


04402 


7240 


CLA CM 






676 


04403 


1356 


TAD 


PASSNO 


/CHECK PASS 


677 


04404 


7650 


SNA CLA 






70*3 


#4405 


5351 


JMP 






701 


04406 


1027 


TAD 


LQCTR2 


/GET LOW 12 BITS OF LOCATION 


7«2 


04407 


7406 


RTL 






7653 


04410 


7m§ 


RTL 






704 


04411 


7006 


RTL 






70b 


04412 


0126 


AND 


C37 


/GET PAGE NUMBER (WITHIN FIELD) 


706 


04413 


3305 


DC A 


OTE*P 


/SAVE PAGE NUMBER 


707 


04414 


1005 


TAD 


OTEMP 




710 


04415 


7640 


SZA CLA 




/POINTER TO P0LIT OR CPLIT 


711 


04416 


7001 


IAC 






712 


04417 


1130 


TAD 


[P0LIT 




713 


04420 


3357 


DC A 


OWTEMP 




714 


04421 


1027 


TAD 


L0CTR2 


/GET CURRENT ADDRESS DISPLACEMEN 


715 


04422 


0141 


AND 


E177 




716 


04423 


7041 


CIA 




/COMPARE WITH LITERAL BOUNDARY 


717 


04424 


1757 


TAD I 


OWTEMP 




1720 


04425 


77W 


SKA CLA 






.721 


04426 


5232 


JMP 


• + 4 


/NO PAGE OVER FLOW 


722 


04427 


4572 


JMS I 


[ERMSG 




723 


04430 


2017 


2017 




/*P0* 


72<a 


04431 


5322 


JMP 


PRNTST 


/DONT STORE IF PAGE OVERFLOW 


725 


04432 


1005 


TAD 


OTEMP 


/NOw GET SUPER-PAGE NUMBER 


726 


04433 


7110 


CLL RAR 






727 


04434 


3405 


DC A 


OTEMP 


/AND SAVE IT 


73« 


04435 


1026 


TAD 


LOCTR1 


/GET FIELD BITS 


731 


04436 


B272 


AND 


01 


/ONLY ONE BIT FOR DIAL CRAP 


,732 


04437 


7106 


CLL RTL 






733 


144440 


7dP6 


RTL 






734 


04441 


10f-5 


TAD 


OTEMP 


/THIS GIVES TAPE BLOCK NUMBER 


735 


04442 


30fc*5 


DC A 


OTEMP 




736 


04443 


116*3 


TAD 


8BL0CK 


/GET CURRENT BLOCK 


737 


04444 


7041 


CIA 






74^ 


K4445 


14PS5 


TAD 


OTEKP 


/COMPARE WITH DESIRED BLOCK 


741 


04446 


7650 


SNA CLA 






742 


04447 


5dl4 


JMP 


SAMBLK 


/SAME BLOCK 



17 43 


i/14450 


1 1 e 3 




TAD 


b&LOCK 


/PINO REAL BLOCK NUMBER 


1744 


£4451 


HP 4 




Tad 


BPUDGfc 




1745 


04452 


3256 




OCa 


»R6L .OK. 




1746 


04453 


43^2 




JMS I 


DIALER 


/WRITE CUT OLD BLOCK 


1747 


04454 






1 






175* 


04455 


c-< j 1 5 










1751 


04456 


ft iv) u-i 




0 






1762 


04457 


0W0 1 




1 






1754 


M460 


1 0 i' 5 




TAO 


QTEMP 


/CHECK FOR THIS BLOCK ALREADY US 


175« 


04461 


1377 




TAD 


(USE TBL 




1755 


04462 


30?6 




OCA 


UC«T 


/POINTER ImTO USE TABLE 


1756 


04463 


1 4£.?6 




TAO I 


OCNT 


/GET, INDICATOR 


1757 


04464 


7650 




SNA CLA 






1760 


04465 


5277 




JMP 


nEwblk 


/FIRST TIME USED 


1761 


04466 


1005 




TAD 


QTEf'P 


/BLOCK WAS USED , FIND REAL BLOCK 


1762 


04467 


1 1 « 4 




TAO 


HFUDGfc 


/NUMBER AND READ BLOCK 


1763 


04470 


3274 




OCA 


BLOCKS 




17M 


0 4 471 


45$ 1 




JHS I 


01 ALRD 




1765 


04472 


0 £0 1 


01 1 


1 






1766 


04473 


Pifl 1 5 




BINARY 






1767 


04474 


000 0 


6U0CKN, 


0 






177$ 


04475 


000 1 




1 






1771 


04476 


5310 




JHP 


DONT0 




1772 


04477 


2776 


NfcfcBLK , 


ISZ I 


(USETBL-l 


/INCREMENT COUNT OF BLKS IN USE 


1773 


04500 


1375 




TAO 


(BINARY 




1774 


04501 


3360 




OCA 


CLRSIN 


/CLEAR OUT BUFFER 


1775 


04502 


1 374 




TAO 


(*400 




1776 


04503 


3357 




OCA 


0*TEMP 




1777 


04504 


5760 




OCA I 


CLRB1N 




200$ 


04505 


2360 




ISZ 


CLR6IN 




2801 


04506 


2357 




ISZ 


UWTEMP 




2002 


04507 


5304 




JMP 


• -3 




20(53 


04510 


1305 


OQNT0, 


TAO 


QTEMP 


/RESET CURRENT BLOCK 


2004 


0451 1 


3103 




OCA 


86L0CK 




2005 


04512 


724fe} 




CL A CMA 




/SET BLOCK IN USE 


2006 


04513 


34 f *6 




OCA I 


OCNT 




2007 


04514 


1027 


SAM6LK, 


TAO 


L0CTR2 


/GET POINTER FOR STORING WORD 


20Uj 


04515 


P.373 




AND 


(377 






04516 


1375 




TAO 


(BINARY 




2012 


04517 


3005 




OCA 


OTEMP 




2013 


04520 


1356 




TAD 


HlRD 


/GET *ORD 


2014 


04521 


34^5 




DCA I 


QTEMP 


/STORE IT 


2015 


04522 


1061 


PRNTST, 


TAD 


L1STSW 


/IS LIST ON ? 


2016 


04523 


7650 




SNA CL A 






2017 


04524 


5351 




JMP 


ENOOUT 


/N0# DONT PRINT 


2020 


04525 


4576 




J*S I 


(PRINTC 


/PUT CR-LF 


2021 


04526 


1363 




TAD 


OUTSET 


/WAS LINE NUM PRINTED YET? 


2022 


04527 


7640 




SZA CL A 






2023 


04530 


5334 




JMP 


• ♦4 




2024 


04531 


1060 




TAO 


LINENO 


/NO, PRINT IT 


2025 


04532 


4575 




JMS I 


COCTOUT 




2026 


04533 


5340 




JHP 


NOBLNK 


/SKIP OVER BLANKS 


2027 


04534 


4772 




JMS I 


(PRINT2 


/2 BLANKS 


2030 


04535 


4772 




JMS I 


CPRINT2 


/2 MORE 



2031 


04535 


1164 




TAD 




[240 




2032 


04537 


4576 




JMS 


I 


CPRINTC 


/l MORE 4 5 


2033 


04540 


1026 


NQ8LNK, 


T AO 




LOCTR1 


/PRINT LOCATION COUNTER 


2034 


04541 


0156 




AND 




[7 




2035 


04542 


1155 




TAQ 




C260 


/FIRST DIGIT 


2036 


04543 


4576 




JMS 


I 


[PRINTC 




2037 


04544 


1027 




TAD 




LQCTR2 


/NEXT FOUR DIGITS 


2040 


04545 


4575 




JMS 


I 


EOCTOUT 




2041 


04546 


1356 




TAD 




WRQ 


/NOW WORD 




6454? 


*57& 




JMS 


I 


vOCT OUT 




2043 


04550 


4771 




JMS 


I 


CPRNTLN 


/PRINT LINE IF NECESSARY 


2044 


04551 


2027 


ENDQUT, 


ISZ 




LOCTR2 


/BUMP LOCATION COUNTER 


2045 


04552 


5600 




JMP 


I 


OUTWRD 




2046 


04553 


2026 




ISZ 




LOCTR1 


/BUMP SECOND WORD 


21347 


04554 


5600 




JMP 


I 


UUTWRD 




2050 


04555 


56U0 




JMP 


I 


OUT^RD 




2051 


04556 


0000 


WRD, 


0 








2052 


04557 


0000 


OwTEMP, 


0 








2053 


0456(7! 


0000 


CLRBIN, 


0 








0000 








CHAIN 


"FPP ASM3" 





am eject 





M571 


2 0 wi 












04572 


5714 












04573 


£377 












04574 


7430 












04575 


64?0 












• 4 5 7 0 


o*>37 












^4577 


6340 










0002 






PAGE 






0003 


04600 


3*65 ENOX, 


DC A 




RADIX 


/SET DEFAULT CONDITIONS 


0004 


04601 


7240 


CLA 


CM A 




/END, OF WHICH PASS ? 


0005 


£-14602 


1^56 


TAD 




PASSNO 


0006 


04603 


764K 


SZA 


CLA 






0007 


04604 


5243 


JMP 




E0P2 


/END OF PASS TWO 


0010 


04605 


4777 


JMS 


I 


(P AGE J 


/cJECT AFTER PASS ONE 


00 11 


04606 


3107 


DC A 




STak2^ 


/RESET STUPIDITY SWITCH 


0012 


04607 


3060 


OCA 




LINE NO 


/ZERO LINE NUMBER 


0013 


046 It 1 


3«5? 


OCA 




ASMGF 


/ZERO CONDITIONAL SWITCH 


0014 


04611 


3064 


DC A 




5CS*T 


/ZERO SEMICOLON SWITCH 


0015 


04612 


1062 


TAD 




LSTCN 


/SET LIST SWITCH 


0016 


04613 


3061 


DC A 




LISTS* 




0017 


04614 


1030 


TAD 




LITRG1 


/IF LITORG HAS BEEN SET 


0020 


04615 


7700 


SMA 


CLA 






0021 


04616 


5223 


JMP 




.+5 


/DONT CHANGE IT 


0022 


04617 


1026 


TAD 




LOCTR1 


/SET LITORG INCASE NQ COMMAND 


0023 


04620 


3030 


DC A 




LITRG1 




0024 


04621 


1027 


T AO 




LQCTR2 




0025 


04622 


3031 


OCA 




LITRG2 




0026 


04623 


1145 


TAD 




C2fe30 




0027 


04624 


3027 


DCA 




L0CTR2 


/LOCATION COUNTER 


0030 


04625 


3026 


DCA 




LOCTR1 




0031 


04626 


7130 


CLL 


CML 


RAR 


Z4000 


0032 


04627 


3032 


DCA 




BASER 


/SET BASE BEYOND BELIEF 


0033 


04630 


1141 


TAD 




U77 


/INITIALIZE LITERAL BOUNDARIES 


0034 


04631 


31 IK 


DCA 




P0LIT 




0035 


04632 


1141 


TAD 




C177 




0036 


04633 


3111 


DCA 




CPLIT 




0037 


04634 


7040 


ChA 






/OPEN INPUT FILE 


0040 


04635 


3324 


DCA 




CHRCNT 




0041 


04636 


3105 


DCA 




S6LCCK 




0042 


04637 


3776 


DCA 


I 


CSRCUNT 


/START AT UNIT 0 


0043 


04640 


3362 


OCA 




ERRORS 


/ZERO ERROR COUNT 


0044 


04641 


2«56 


ISZ 




PASSNO 


/BUMP PASS NUMBER 


0045 


04642 


5525 


JMP 


I 


[START 


/DO NEXT PASS 


0046 


04643 


7201 EQP2, 


CLA 


IAC 




/DUMP CURRENT PAGE LITERALS 


0047 


04644 


47 7 5 


JMS 


I 


CDMPLIT 




0050 


04645 


4775 


JMS 


I 


CDMPLIT 


/THEN OUMP PAGE 0 LITERALS 


0051 


04646 


2*63 


ISZ 




OUTSwT 


/DONT PRINT LINE WITH FP LITERAL 


0052 


04647 


4774 


JMS 


I 


COLITS 


/THEN FLOATING POINT LITERALS 


0053 


04650 


4777 


JMS 


I 


CPAGEJ 


/EJECT 


0054 


04651 


1362 


TAD 




ERRORS 


/ERROR COUNT 


0055 


04652 


4575 


JMS 


I 


[OCTOUT 




0056 


04653 


1373 


TAD 




C0522 


/PRINT ER 



0057 


04654 


4772 




J MS 


I 


(PRINT2 




0060 


04655 


1371 




TAO 




(2217 


/PRINT RQ 


0061 


04656 


4772 




JMS 


I 


(PR1NT2 




0062 


04657 


1370 




TAO 




(2223 


/PRINT RS 


0063 


04660 


4772 




JMS 


I 


(PRINT2 




0064 


04661 


4777 




JMS 


I 


CPAGEJ 


/EJECT 


0065 


04662 


1367 




TAO 




CBUCKTS-1 


/SET UP FOR SYMBOL TABLE 


0066 


04663 


3015 




OCA 




X15 




0067 


04664 


1366 




TAO 




C-32 


/26 BUCKETS 


0070 


04665 


3066 




OCA 




LTEMp 




0071 


04666 


1365 




TAO 




C301 


/BUCKET CHARACTER 


0072 


04667 


3051 




OCA 




BUCKET 




0073 


04670 


1415 


STPRNT i 


TAO 


I 


X 15 


/GET NEXT BUCKET 


0074 


04671 


6211 




CDF 




FLO 1 




007S 


04672 


3067 




OCA 




6 X T> P 


/BUCKET START ADDRESS 


0076 


04673 


7200 


LUPBKT, 


CLA 








0077 


04674 


1467 




TAO 


I 


EXTMP 


/WAS TT AT LAST SYMBOL ? 


0100 


04675 


7450 




SNA 








0101 


04676 


5353 




JMp 




NXTBKT 


/YES , GO GET NEXT BUCKET 


0102 


04677 


3*367 




OCA 




EXTMP 


/SAVE LINK auuk 


0103 


04700 


1067 




TAO 




EXTHP 




0104 


04701 


3014 




OCA 




X14 


/SET UP POINTER FOR NAME 


0105 


04702 


1414 




TAO 


I 


X14 


/PICK UP THE NAME 


0106 


04703 


3052 




OCA 




NAME 1 




0107 


04704 


1414 




TAO 


I 


X14 




0110 


04705 


3053 




OCA 




NAME2 




0111 


04706 


1414 




TAD 


I 


X14 




0112 


04707 


3054 




OCA 




NAME3 




0113 


04710 


1054 




TAD 




NAME 3 


/LOOK AT THE TYPE 


0114 


0471 1 


£126 




AND 




C37 


/LOSE FORCE BIT 


0115 


04712 


1157 




TAO 




C-4 


/IS AN OPCODE ? 


0116 


04713 


75(^0 




SMA 








0117 


04714 


5273 




JMP 




LUPBKT 


/YES, GET NEXT SYMBOL 


0121?! 


04715 


1332 




TAO 




SETT YP 


/GET JUMP THRU TABLE 


0121 


04716 


3331 




DC A 




SETTYP-1 




0122 


04717 


4576 




JMS 


I 


[PRINTC 


/PRINT CR-LF 


0123 


04720 


1051 




TAD 




BUCKET 




0124 


04721 


4576 




JMS 


I 


[PRINTC 


/PRINT FIRST CHAR 


0125 


04722 


1052 




TAD 




NAME 1 




0126 


04723 


4772 




JMS 


I 


CPRINT2 


/PRINT 2 AND 3 


0127 


04724 


1053 




TAO 




NAME2 




013*6 


04725 


4772 




JMS 


I 


CPRINT2 


/PRINT 4 AND 5 


0131 


04726 


1054 




TAD 




NAME3 




0132 


04727 


0364 




AND 




(7700 


/PRINT 6 AND BLANK 


0133 


04730 


4772 




JMS 


I 


(PRINT2 




0134 


04731 


005*0 




0 








0135 


04732 


5737 


SETT YP i 


JMp 


I 


• +5 




0136 


04733 


4673 




LUPBKT 




/UNDEFINED, PRINT NOTHING 


0137 


04734 


4746 




SYM1 








0140 


04735 


4741 




SYM2 








0141 


04736 


^737 




5YP!3 








0142 


04737 


1414 


5 Y Y 3 , 


TAD 


I 


X14 


/PRINT 3 WORD THING 


0143 


0 474b 


4 575 




IMC 
W •"■ « 


T 
* 


tGC TOUT 




0144 


04741 


1414 


SYM2, 


TAO 


I 


X14 


/PRINT 2 WORD THING 



0145 


04742 


4575 




JMS 


I 


[OCTOUT 




0140 


M743 


1414 




TAD 


I 


X14 




0147 


434744 


4575 




JHS 


I 


[OCTOUT 






04745 


5273 




JMP 




LUPBKT 


/GET NEXT SYMBOL 


0151 


04746 


1414 




TAD 


I 


X14 


/PRINT FIRST OIGIT 


0152 


P4747 


£156 




ANQ 




[7 




0153 


04750 


1155 




TAD 




[260 




0154 


M751 


4576 




JMS 


I 


EPRINTC 




0155 


04752 


5343 




JMP 




SYM2+2 


/PRINT NEXT FOUR DIGITS 


0156 


04753 


2051 


NXT6KT, 


ISZ 




BUCKET 


/NEXT BUCKET CHAR 


0157 


04754 


6201 




CDF 




FLD0 




0160 


04755 


2466 




ISZ 




LTEKP 


/INCREMENT COUNT 


0161 


04756 


5270 




JMP 




STPRNT 




0162 


04757 


4777 




JHS 


I 


CPAGEJ 


/EJECT 


0163 


04760 


4576 




JMS 


I 


CPRINTC 


/FINAL CR/LF 


0164 


04761 


5763 




JMP 


I 


CEnDXX 


/FINISH IT OFF 


0165 


04762 


0000 


ERRORS t 


0 









0166 








EJECT 

In V mm W I 








04763 


4111 












04764 


7700 

r / v > v 












04765 


¥ W V JL 












04766 


7746 












04767 


4SJ2 1 












04770 


2223 












0477 1 


2217 












04772 


5714 












04773 


W C- F, 












04774 


3a 1 4 












04775 


5075 












04776 


0666 












04777 


5154 










0167 








PAGE 

r * fc» 






V * f V 


W v V U I 1 


^554 


BASE X ■ 


JMS I 

W Ft O 4. 


[ ADRGET 
li w v3 & i 


/GFT ADDRFSS EXPR VALUF 


8171 


0500 1 


1037 




T AO 


EXPT YP 


/wAS THING DEFINED 


0172 


05002 


7650 




SNA CLA 






0173 


05003 


5220 




JMP 


QRGERR 


/NO. GIVE #U0* ERROR 

*l**Wf v 4 " U ^ W W " u i> n W 1 « 


0174 


05004 


1035 




T AO 


EXPV AL + I 


/PUT I MTO BASER 


0175 


05005 

~J %f pJ W %f 


0156 




AND 


C7 




0176 


05006 


3032 




DC A 


BASER 




0177 


05007 


1036 




T AO 


EXP V AL + 2 

ft— A r * ^ w» ~ C, 




02(5 0 


05010 


3033 




OCA 


p ASER+1 




02? 1 


0501 1 


5563 




JHP I 


[NEXTST 




0202 


05012 


4551 


ORGX i 


JMS I 


CEXPR 


/GET ORG EXPR 


0203 


05013 


522ft 

^ t 4 « J 




JMP 


ORUERR 


/SAD IF ND EXPR 


0 20 4 
v «y ~ 


05014 


7240 




CLA CMA 

W w- **! Wl 1 N 




/THECK TYPE 


0205 


050 1 5 


1*37 




T AO 

1 ^ W 


EXPT YP 




0206 


05016 


7650 




SKA CLA 






0207 


05017 


5223 




JMP 


FI XORG 


/TYPE OK 

w \ i * mm yn 


0210 


05020 


«572 


ORGtRR i 


JMS I 


[ERMSG 

Yr W- ( W W 




021 1 


05021 


2517 




2517 




/*uo* 


0212 


05022 


5563 




JMP I 


[Nt X TST 




0213 


05023 


1026 


PIXORG . 


TAD 


LOCTR 1 


/CHECK FDR NEW FIELD 


0214 


05024 


7041 




CIA 






0215 


05025 


1335 




TAD 


EXPV AL+ 1 




9216 


05026 


7650 




SNA CLA 






0217 


05027 


5236 




JMP 


SAMFLD 


/NOT A DIFFERENT FIELD 


0220 


05030 


72C> l 




CLA IAC 






0221 

w Mm * 


05031 


4275 




JMS 

W J " w 


DMPL IT 


/DUMP CURRENT PAGE LITERALS 


0222 


05032 


4275 




JMS 


DMPLIT 


/DUMP PAGE 0 LITERALS 


0223 


05033 


1141 




T AO 


[177 


/RESET PAGE 0 LIT BOUNDARY 


0224 


05034 


3110 




OCA 


P0LIT 




0225 


05035 


5251 




JMP 


SAMP AG«2 


/DO THE SAME FOR CURRENT PAGE 

rww I i<b w^'»fc. i wn w* w r\ ' » w. i'* i r ft ww 


0226 


05036 


1027 


S A I* 1 F L 0 1 


T AO 


L0CTR2 




0227 


05037 


il 1 42 




AND 


C 7 6 2 0 


/CHECK FOR SAME PAGE 


0230 


05040 


3066 




OCA 


LTEMP 




0231 


05041 


1 ?j36 




TAD 


EXPV AL+2 




(J *t Q 








And 


f ? K ^ ijl 




0233 


05043 


7041 




CIA 






« O 1 A 

mew" 


tSSfflil/l 
w e •» ^ 


4 i> £ C 




T * r\ 


1 TCItO 

h> I W ! • 1 




0235 


05045 


7650 




SNA CLA 







0236 


85*546 


5253 




JKP 




SAHPAG 


/PAGE IS THE SAME 


0237 


05047 


72V\ 




CLA 


IAC 






8240 


05050 


4275 




JMS 




QMPLIT 


/DUMP CURRENT PAGE LITERALS 


0241 


05051 


1141 




T AO 




C177 


/RESET 80UN0ARY 


0242 


W5052 


3111 




OCA 




CPLIT 




3243 


05053 


1^35 


SAHPAG, 


TAO 




EXPVAL+1 


/PUT ORG VALUE 


0244 


655054 


H56 




ANQ 




17 




0245 


05055 


3026 




DC A 




LOCTR1 


/INTO LOCATION COUTER 


0246 


(55056 


14336 




TAO 




EXPVAL+2 




(3247 


05057 


3027 




OCA 




L0CTR2 




0250 


05060 


5563 




J MP 


I 


[NEXTST 




8251 


05061 


1062 


LSTONX, 


TAO 




LSTON 




0252 


05062 


3061 


ISTQFX, 


OCA 




LISTS* 


/SET LIST STATUS 


3253 


05063 


5563 




JMP 


I 


[NEXTST 




0254 


K5064 


H27 


PAGEX, 


TAO 




LQCTR2 


/ADVANCE TO NEXT PAGE 


0255 


05065 


7100 




CLL 








0256 


05066 


1141 




TAD 




[177 




0257 


05067 


0142 




AND 




[7600 




026tf 


05070 


3036 




OCA 




EXPVAL+2 




0261 


05071 


7004 




RAU 








0262 


05072 


1026 




TAD 




LOCTR1 




0263 


05073 


3035 




OCA 




EXPVAL+1 




0264 


05074 


5223 




JMP 




FIXOKG 




0265 








S*TQUTaOPE 




0266 


85075 


0000 


OMPUIT, 


0 








0267 


05076 


3112 




OCA 




PAGEN 


/SAVE PAGE INDICATOR 


3270 


05077 


1063 




TAD 




OUTSWT 


/SAVE OUTPUT SWITCH 


0271 


05100 


3113 




OCA 




SWTOUT 




0272 


05101 


2063 




ISZ 




QUTSWT 


/OONT PRINT LINE WITH LITERALS 


0273 


05102 


1112 




TAD 




PAGEN 




0274 


05103 


1130 




TAO 




CP0LIT 


/GET BOUNDARY POINTER 


0275 


05104 


3066 




OCA 




LTEMP 




0276 


05105 


1112 




TAO 




PAGEN 


/WHICH LITERAL BUFFER ? 


0277 


05106 


7650 




SNA 


CLA 






0300 


05107 


1377 




TAO 




CP0LBUF-CPL8UF 


/PAGE 0 BUFFER 


03S1 


05110 


1376 




TAD 




CCPLBUF 


/CURRENT PAGE BUFFER 


0302 


05111 


1466 




TAO 


I 


LTEHP 


/PLUS PAGE ADDRESS 


0303 


05112 


3010 




OCA 




X10 


/GIVES START OF LITERALS -1 


0304 


05113 


1112 




TAD 




PAGEN 




0305 


05114 


7640 




SZA 


CLA 






0306 


05115 


1027 




TAO 




L0CTR2 


/UPPER FIVE BITS OF ADDRESS 


0307 


05116 


0142 




AND 




[7600 




0310 


05117 


1466 




TAO 


I 


LTEMP 


/PLUS LOWER SEVEN 


0311 


05120 


7001 




IAC 






/PLUS ONE 


0312 


05121 


3027 




OCA 




L0CTR2 


/GIVES LOCATION COUNTER 


0313 


05122 


1466 




TAO 


I 


LTEMP 


/SAVE OLD LITERAL BOUNDARY 


0314 


05123 


3112 




OCA 




PAGFN 




0315 


05124 


1141 




TAO 




[177 


/STORE SPURIOUS LITERAL BOUNDARY 


0316 


05125 


3466 




OCA 


I 


LTfcMP 


/TO PREVENT FALLACIOUS *PO* MESS 


0317 


05126 


1010 


LITLUP, 


TAO 




X10 


/END OF LITERALS 


0320 


05127 


M141 




AND 




[177 


/GET DISPLACEMENT -1 


0321 


05130 


1375 




TAO 




C-177 


/IS IT ,GE, 177 ? 


0322 


05131 


7700 




SMA 


CLA 






0323 


05132 


5336 




JMP 




OMPFIN 


/GO RESTORE LITERAL BOUNDARY 



5532 4 


35133 


1410 




T A n 


T 


X 12 


/NO, GET NEXT LITERAL 


0325 


05134 


4550 




JMS 


i 


EOUTWRD 


/OUTPUT WORD AND BUMP LC 


0326 


05135 


5326 




JMP 




LITLUP 


/LOOP 


0327 


05136 


1 112 


pHPFIN, 


TAD 




PAGEN 


/GET CORRECT LITERAL BOUNDARY 


0330 


05137 


3466 




DCA 


i 


LTfcMP 


/PUT IT IN ITS PLACE 


0331 


05140 


1113 




TAD 




SWTOUT 


/RESTORE OUTPUT SWITCH 


0332 


^5141 


3063 




DCA 




OUTSWT 




0333 


05142 


5675 




JMP 


i 


OMPLIT 


/ALL DONE 


0334 








PAGEN«ACE 




0335 


05143 


7240 


EJECTX, 


CLA 


CMA 




/NO EJECT ON PASS 1 


0336 


05144 


1056 




TAD 




PASSNO 




0337 


05145 


7650 




SNA 


CLA 






0340 


05146 


5563 




JMP 


I 


CNEXTST 




0341 


05147 


1061 




TAD 




LISTSW 


/OR uIST OFF 


0342 


05150 


7650 




SNA 


CLA 






0343 


05151 


5563 




JMP 


I 


CNEXTST 




0344 


05152 


4354 




JMS 




PAGE J 




0345 


05153 


5563 




JMP 


I 


CNEXTST 




0346 


05154 


01000 


PAGE J f 


0 






/PAGE EJECT SUBROUTINE 


0347 


05155 


4576 




JMS 


I 


CPRINTC 


/CR«LF 


0350 


05156 


1374 




TAO 




C214 




0351 


05157 


4576 




JMS 


I 


CPRINTC 


/FORM FEEO 


0352 


05160 


1025 




TAO 




SIZPAG 


/FIX PAGE COUNTER 


0353 


05161 


3007 




DCA 




PAGSI2 




0354 


05162 


5754 




JMP 


I 


PAGE J 





0355 EJECT 





05174 


0214 












05175 


7 6? 1 












05176 


6000 












05177 


1400 










5535b 








PAGE 






0357 


05200 


4573 


CHAINX, 


JMS I 


[GETCHR 


/LOOK FOR FIRST » 


0360 


05201 


5347 




JMP 


CHERR 


/MISSING FILE NAME 


3361 


05202 


1377 




TAD 


(-242 




0362 


05203 


7640 




SZA CI A 






0363 


05204 


5200 




JMP 


CHAINX 


/KEEP LOOKING 


0364 


05205 


1157 




TAD 


t-4 


/NAME *ORD COUNT 


0365 


05206 


3066 




DC A 


LUMP 




0366 


052137 


1376 




TAD 


(FNAME 


/NAME POINTER 


0367 


05210 


3067 




DC A 


EXTMP 




0375? 


05211 


3353 




DCA 


C8SKIT 


/SET CAT BLOCK 8HITCH 


0371 


05212 


4775 


CNLOOP, 


JMS I 


CGETCN 


/GET CHAR 


0372 


05213 


7106 




CLL RTL 






0373 


05214 


7006 




RTL 






0374 


05215 


70»6 




RTL 






0375 


05216 


3467 




DCA I 


EXTMP 


/SAVE UPPER HALF 


0376 


05217 


4775 




JMS I 


(GETCN 




0377 


05220 


1467 




TAD I 


EXTMP 


/UNITE HALVES 


0400 


05221 


3467 




OCA I 


EXTMP 




0401 


05222 


2067 




ISZ 


EXTMP 


/BUMP POINTER 


0402 


05223 


2066 




ISZ 


LTEMP 


/AND COUNT 


0403 


05224 


5212 




JMP 


CNLOOP 




0404 


05225 


4573 




JHS I 


(GETCHR 


/LOOK FOR CLOSE QUOTE 


04B5 


05226 


5347 




JMP 


CHERR 




0406 


05227 


1377 




TAD 


(•242 




0407 


05230 


7640 




SZA CLA 






0410 


05231 


5347 




JMP 


CHERR 




0411 


05232 


4774 




JMS I 


CGETUNT 


/GO GET UNIT NUMBER 


0412 


05233 


7144 




CLL CM A 


RAL 


/2 BLOCKS OF CAT 


0413 


05234 


3067 




DCA 


EXTMP 




0414 


05235 


1373 




TAD 


(-4E 


/32 ENTRIES PER BLOCK 


0415 


05236 


3352 




DCA 


NFILES 




0416 


05237 


1372 




TAD 


(-22 


/COMPUTE CAT BLOCK NUMBER 


0417 


05240 


1106 




TAD 


SFUOGE 




0420 


05241 


3245 




OCA 


DIRBLK 




0421 


05242 


45R)1 


OIRLUP, 


JMS I 


DIALRD 


/READ CATALOG 


0422 


05243 


0000 


UNIT, 


0 






0423 


05244 


0016 




S0URC8 




/INTO SOURCE BUFFER 


0424 


05245 


0000 


0IR8LK, 


0 






0425 


05246 


0001 




1 






0426 


05247 


2245 




ISZ 


DIRBLK 


/INCR BLOCK 


0427 


05250 


1371 




TAD 


(SQURCE-1 


/GET CAT POINTER 


0430 


05251 


3010 




DCA 


X10 




0431 


05252 


1353 




TAD 


CBS*IT 


/IS THIS SECOND HALF QF CAT 1 


0432 


05253 


2353 




ISZ 


C8SMT 


/SET SWITCH 


0433 


05254 


7640 




SZA CLA 






0434 


05255 


5263 




JMP 


FILLUP 


/YES 


0435 


05256 


1570 




TAD I 


[SOURCE 


/CHECK FIRST NAME FOR "////////" 



0436 


05257 


1370 




TAO 




C-5757 




0437 


05260 


7640 




SZA 


CLA 






0440 


05261 


5347 




JMP 




CHfeRR 


/FILE NOT FOUND 


0441 


05262 


5340 




JMP 




NOTFIL 


/GO BUMP NAME POINTER 


i(5442 


05263 


1367 


P1LLUP, 


TAO 




CFNAME-1 


/NAME POINTER 


0443 


05264 


3011 




OCA 




XI 1 




0444 


05265 


1010 




TAO 




X10 


/SAVE CAT POINTER 


0445 


05266 


3012 




OCA 




X12 




0445 


05267 


1 157 




TAO 




C-4 


/NAME SIZE 


0447 


05270 


3066 




OCA 




LTEMP 




0450 


05271 


1412 


FNLOOP# 


TAO 


I 


X12 


/COMPARE NAMES 


0451 


05272 


7041 




CIA 








0452 


05273 


Mil 




TAO 


I 


X 1 1 




0453 


05274 


7640 




SZA 


CLA 






0454 


05275 


5340 




JMP 




NOTFIL 


/NOT THIS ONE 


0455 


05276 


2066 




ISZ 




LTEMP 




0456 


05277 


5271 




JMP 




FNLOOP 


/NOT DONE 


0457 


05300 


1106 




TAD 




SFUDGE 


/GET RELATIVE BLOCK NUM 


0460 


05301 


7041 




CIA 








0461 


05302 


1412 




TAO 


I 


XI 2 




0462 


05303 


3105 




DC A 




SBLOCK 




0463 


05304 


1412 




TAO 


I 


X12 


/CHECK SIZE 


0464 


05305 


7710 




SPA 


CLA 






0465 


05306 


5347 




JMP 




CHERR 


/IF NEG# NO SUCH FILE 


0466 


05307 


1243 




TAD 




UNIT 


/SAVE UNIT 


0467 


05310 


37fi6 




OCA 


I 


CSRCUNT 




0470 


0531 1 


7040 




CM A 








0471 


05312 


3024 




DC A 




CHRCNT 


/SET COUNT TO M 


0472 


05313 


3060 




DCA 




LINENO 


/ZERO LINE NUMBER 


0473 


05314 


3064 




OCA 




SCSWT 


/ZERO SEMICOLON SWITCH 


0474 


05315 


3107 




OCA 




STAR20 


/ZERO STUPIDITY SWITCH 


0475 


05316 


7240 




CLA 


CMA 






0476 


05317 


3020 




OCA 




NCHARS 


/REMOVE FALSE *EG* MESSAGE 


0477 


05320 


7240 




CLA 


CM A 




/DO WE PRINT MESSAGE 


0500 


05321 


1056 




TAO 




PASSNO 




0501 


05322 


7640 




SZA 


CLA 






0502 


05323 


1061 




TAO 




LISTSW 




0503 


05324 


7640 




SZA 


CLA 






0504 


05325 


5563 




JMP 


I 


[NEXTST 


/ONLY IF PASS1, OR PASS2 & 


0505 


05326 


4576 




JMS 


I 


CPRINTC 


/CR-LF 


0506 


05327 


1365 




TAO 




(-12 


/MESSAGE SIZE 


3507 


05330 


3066 




OCA 




LTEMP 




0510 


05331 


1364 




TAO 




(CMSG-l 


/AND POINTER 


051 1 


05332 


3010 




OCA 




X10 




0512 


05333 


1410 




TAD 


I 


X10 


/GET WORD OF MESSAGE 


0513 


05334 


4763 




JMS 


I 


CPRNT2 


/PRINT 2 CHARS 


0514 


05335 


2066 




ISZ 




LTEMP 




0515 


05336 


5333 




JMp 




,-3 




0516 


05337 


5563 




JMP 


I 


[NEXTST 


/PRINT CHAIN COMMAND 


0517 


05340 


1310 


NOTFIL i 


TAD 




X10 


/BUMP CAT POINTER 


0520 


05341 


1362 




TAD 




C10 


/BY 8 


0521 


05342 


3310 




DCA 




X10 




0522 


n c ■» A •» 


C O iJ c 




T C T 

Jl im 




N F I L E S 


/MORE FILES IN BLOCK ? 


0523 


05344 


5263 




JMP 




FILL UP 


/YES 



<352* 05345 2^7 

*525 *534t> 5242 

0526 sd5347 4527 CHfcRH, 

3)527 0535* ^310 

0530 05351 57*1 

'3531 05352 3 a (SB NFlLfcS, 

0532 £5353 fcflfrfc CBSWXT, 



ISZ EXTKP 
JMP DIRLUP 
JHS I [ERKSGl 
«310 

JMP I CRtTSYS 

0 

0 



/ANOTHER BLOCK ? 
/YES 

/*CH* 

/FATAL ERROR 



2533 








EJECT 






05361 


4131 










05362 


0010 










05363 


5726 






















05365 


7766 










05366 


0666 










05367 


5761 










05370 


2021 










0537 1 


6777 










05372 


7756 










05373 


7740 










D( (C ^ A 


2 3 1 4 










05375 


5400 










05376 


5762 










05377 


7536 








0534 








PAGE 




0535 


05400 


K000 


GETCN » 


0 




0536 


05401 


4573 




JMS I 


[GETCHR 


0537 


05402 


5777 




JMP I 


(ChERR 


0540 


05403 


1376 




TAD 


(-242 


0541 


05404 


7450 




SNA 




0542 


05405 


521 1 




JNP 


1SU 


0543 


05406 


1375 




TAO 


C242 


0544 


05407 


0167 




AND 


177 


0545 


05410 


5600 




JHP I 


GETCN 


0546 


05411 


4561 


ISQ, 


JMS I 


[BACK 1 


0547 


05412 


1167 




TAD 


177 


0550 


05413 


5600 




JMP I 


GETCN 



/RETURN NEXT CHAR OR 77 

/GET CHAR 

/NONE, GIVE ERROR 

/IS IT " 

/YES 

/FIX CHAR 

/RETURN IT 
/PUT BACK ■ 
/RETURN 77 



3551 EJECT 





05575 


0242 














05576 


7 536 














£5577 


5347 












0552 








PAGE 






'3553 


05600 


4573 


TfcXTX, 


JH$ 


I 


EGtTCHR 


/GET DELIMITER 


0554 


05601 


5563 




JMP 


I 


CNEXTST 


/NULL STMT 


0555 


05602 


704 1 




CIA 








0556 


*5603 


3067 




OCA 




EXT MP 


/SAVE - OELIM 


0557 


05604 


4222 


LUGP68, 


JMS 




GETCHT 


/GET HIG ORDER CHAR 


5)56.1 


05605 


5563 




JMP 


I 


[NfcXTST 




0561 


05606 


7106 




CLU 


RTL 






0562 


05607 


700 6 




RTL 








0563 


05610 


7006 




RTL 






/SHIFT IT UP 


056-a 


05611 


3066 




OCA 




LTEMP 


/SAVE HALF 


0565 


05612 


4222 




JMS 




GETCHT 


/GET LOWER CHAR 


0566 


05613 


5217 




JMP 




GUTTXT 


/GO PUT LAST 


0567 


05614 


1066 




TAO 




LTEMP 


/PUT 2 CHARS TOGETHER 


0570 


05615 


4550 




JMS 


I 


[OUTwRD 


/OUTPUT WORD 


0571 


£5616 


5204 




JMP 




L00P66 


/LOOP 


0572 


05617 


1066 


GUTTXT, 


TAD 




LTEMP 


/PUT OUT HALF WORD 


0573 


05620 


455fc 




JMS 


I 


COuTwRP 


/OR ZERO WORD 


0574 


05621 


5563 




JMP 


I 


[NEXTST 




0575 


05622 


2*000 


GETCHT, 


0 






/GET CHAR FOR TEXT STMT 


0576 


05623 


2020 




ISZ 




NCHARS 


/BUMP COUNT 


0577 


05624 


7410 




SKP 








060$ 


05625 


5622 




JMP 


I 


GETCHT 


/END OF TEXT 


0621 


05626 


1417 




TAO 


I 


CHRPTR 


/GET CHAR 


0602 


05627 


3a5l 




OCA 




BUCKET 


/SAVE IT 


0603 


05630 


1051 




TAO 




BUCKET 


/IS IT THE DELIM ? 


0604 


05631 


1067 




TAD 




EXTMp 




aaes 


05632 


7650 




SNA 


CLA 






0606 


05633 


5622 




JMP 


I 


GETCHT 


/YES, RETURN NO SKIP 


0627 


05634 


2222 




ISZ 




GETCHT 


/BUMP RETURN 


06J0 


05635 


1*351 




TAD 




BUCKET 


/GET CHAR 


061 1 


05636 


0167 




AND 




C77 


/LO** 6 BITS 


0512 


05637 


5622 




JMP 


I 


GETCHT 


/RETURN 


0613 


05640 


4554 


IFNZRX, 


JMS 


I 


tAORGET 


/GET EXPR FOR IFNZRO 


0614 


05641 


1035 




TAO 




EXPVAL+1 




0615 


05642 


7450 




SNA 








0616 


05643 


1336 




TAO 




EXPVAL+2 




0617 


05644 


7650 




SNA 


CLA 






0620 


05645 


2057 




ISZ 




ASMCF 


/IF BOTH HALVES 0, SET SWITCH 


0621 


05646 


5563 




JMP 


I 


CNEXTST 




3622 


05647 


4554 


IFZRQX, 


JMS 


I 


[ADRGET 


/GET EXPR FOR IFZERO 


0623 


M5650 


1035 




TAD 




EXPVAL+1 




06g4 


05651 


7450 




SN-A 








0625 


05652 


1036 




TAO 




EXPVAL+2 




0626 


05653 


7640 




SZA 


CLA 






0627 


05654 


2057 




ISZ 




ASMOF 


/IF BOTH HALVES NON ZERO, SET 


0630 


05655 


5563 




JMP 


I 


[KEXTST 




0631 


05656 


4554 


IFNEGX, 


JMS 


I 


t AuPGET 


/GET EXPR FOR IFNEG 


0632 


05657 


1035 




TAQ 




EXPVAL+1 


/CHECK SIGN 



0633 


K5660 


77m 




SMA 


CLA 






0634 


05661 


2057 




ISZ 




ASMOF 


/SET SNITCH IF POSITIVE 


£5635 


05662 


5563 




JMP 


I 


[NEXTST 




0636 


05663 


4554 


IFPQSX, 


JMS 


1 


[ADftGET 


/GET EXPR FOR IFPOS 


0637 


05664 


1035 




TAD 




EXPVAL+1 


/CHECK SIGN 


0640 


05665 


7710 




SPA 


CU 






0641 


05666 


2*57 




ISZ 




ASMOF 


/SET SWITCH IF NEGATIVE 


0642 


05667 


5363 




JMP 


I 


[NEXTST 




0643 


05670 


4553 


IFREFX, 


JMS 


I 


[GETNAM 


/GET SYMBOL NAME 


0644 


05671 


5563 




JMP 


I 


[NEXTST 


/RETURN IF NONE 


0645 


05672 


4552 




JMS 


I 


[LOOKUP 


/S.T, LOOKUP 


0646 


5*5673 


5300 




JHP 




SOTREF 


/NOT REFERENCED YET 


0647 


05674 


7200 




CIA 






/REFERENCED, ASSEMBLY ON 


0650 


05675 


3057 




OCA 




ASMCF 




0651 


05676 


62?H 




CDF 




FLOe 


/FIX DATA FIELD 


0652 


05677 


5563 




JMP 


I 


[NEXTST 




0653 


05700 


1016 


NQTREF, 


TAD 




NEXT 


/SYMBOL WAS JUST ENTERRED 


0654 


05701 


1157 




T AO 




t-4 




0655 


05702 


3016 




OCA 




NEXT 


/FIRST FIX NEXT 


!46t>0 


05/B3 


1010 




TAD 




NEXT 




0657 


05704 


3010 




OCA 




X10 


/SET UP POINTER 


0660 


05705 


1410 




T AO 


I 


X10 


/GET FWO POINTER 


0661 


05706 


34?4 




OCA 


I 


0L0N3 


/INTO PREVIOUS ENTRY 


0662 


05707 


6201 




COF 




FLOS 




0663 


05710 


7201 




CLA 


IAC 




/SET ASSEMBLY OFF 


0664 


05711 


3057 




OCA 




ASMOF 




0665 


05712 


5563 




JMP 


I 


CNEXTST 




0666 


05713 




P2, 


0 








0667 






P3, 










0670 


05714 


0000 


PRINT2, 


0 






/PRINT TWO PACKED CHARS 


0671 


05715 


3313 




OCA 




P2 




0672 


05716 


1313 




T AO 




P2 




0673 


05717 


7012 




RTR 








0674 


05720 


7012 




RTR 








0675 


05721 


7012 




RTR 








0676 


05722 


4777 




JMS 


I 


CP! 




0677 


05723 


1313 




TAD 




P2 




0700 


05724 


A777 




JMS 


I 


CP1 




0701 


05725 


5714 




JMP 


I 


PRINT2 




0702 


05726 


04£0 


PRNT2, 


0 






/SPECIAL PRINT FOR CHAIN 


0703 


05727 


3313 




OCA 




P2 


/ELIMINATES ? 


0704 


k?5730 


1313 




T AO 




P2 




0705 


05731 


7012 




RTR 








0705 


05732 


7012 




RTR 








0707 


05733 


7012 




RTR 








0710 


05734 


3314 




OCA 




P3 




0711 


05735 


1314 




TAD 




P3 




0712 


05736 


0376 




ANO 




(77 




0713 


05737 


1375 




T AQ 




C-77 




3714 


05740 


7650 




SNA 


CLA 






0715 


05741 


5726 




JMP 


t 

A 


PRNT2 




0716 


05742 


1314 




TAQ 




P3 




0717 


05743 


4777 




JMS 


I 


(Pi 




072K 


05744 


1313 




TAQ 




P2 





*721 
0722 
0723 

tf7g5 
A7Zb 
0727 
073« 



3731 



0732 
0733 
0734 



^5745 
*5746 
1*5747 
05750 
*5751 
05752 
^5753 
?-5754 
05755 
05756 
£5757 
0576?! 
*45761 
05762 
05763 
W5754 
f 5765 
05766 
05767 
05770 



G376 
1375 
7t>5tf 
5726 
1313 
4777 
5726 
^3 If 
bill 

16 U 
1607 
4024 

17 40 

is id G 6 
72tU 
3«J65 
5563 



ChSG 



a NO 
T AO 
SNA 
JKP 
TAD 
JM3 I 
J*P I 
TEXT 



CLA 
I 



FNAHE, 8 ? 0? ; 0 J *) 



DEUX, 
QCTALX, 



CLA 

OCA 
JHP 



IAC 



C77 
C-77 

PRNT2 

P2 

CP1 

PR NT 2 

"CHAINING 



TO 



KAOIX 
tNEXTST 



/RADIXaQECIMAL 
/RADIX*OCTAL 



3735 EJECT 





05775 


77 1 1 






05776 


t?077 






05777 


4147 




0736 






ORG 


0737 


06337 


1 


1 


0740 


06340 


7777 


ml 




06341 


0000 


0 


0742 


06342 


0000 


0 


0743 


06343 


006*5 0 


0 


0744 


06344 


0008 


0 


0745 


06345 


0000 


0 


0746 


06346 


0000 


0 


0747 


06347 


("300 


0 


0750 


06350 


0000 


0 


0751 


06351 


0 000 


0 


0752 


06352 


1*080 


0 


0753 


06353 


0000 


0 


0754 


06354 


0000 


0 


0755 


06355 


0000 


0 


0756 


06356 


(2000 


0 


0757 


06357 


5*000 


0 


0750 


06360 


C'000 


0 


0761 


06361 


0000 


0 


0762 


06362 


0000 


0 


0763 


06363 


0000 


0 


0764 


06364 


0000 


0 


0765 


06365 


0000 


0 


0766 


06366 


0000 


0 


0767 


06367 


0000 


0 


0770 


06370 


0300 


0 


0771 


06371 


0300 


0 


0772 


06372 


0000 


0 


0773 


06373 


0000 


0 


077* 


06374 


0000 


0 


0775 


06375 


£000 


0 


0776 


06376 


0000 


0 


0777 


06377 


0000 


0 



USETBL-1 

n BLOCK USED 
/PAGE 208 BLOCK 



100* EJECT 

1001 Pi>P0P«4 

1002 P S J 0 0 s 5 

1003 ppPtfKs* 

1065b FPPSFJsiM 

1006 FPPSF 2 = 11 

1007 FPPSF3sl2 

1010 FPPSF4SU 

1011 FPPSFSs 1 4 

1012 FPMRFL»15 



00125 r622 
80126 Pki37 
00127 *325 

00130 eil0 

00131 0040 

00132 3W 

00133 0012 
.50134 7506 

00135 3475 

00136 7522 

00137 2620 

00140 7540 

00141 B177 

00142 7500 

00143 7750 

00144 4000 

00145 0200 

00146 1737 

00147 1671 

00150 44^0 

00151 2400 

00152 34E-0 

00153 3610 

00154 1723 

00155 0260 

00156 0007 

00157 7774 

00160 4073 

00161 3600 

00162 7521 

00163 0500 

00164 0240 

00165 0100 

00166 7735 

00167 0077 

00170 7000 

00171 S177 

00172 4336 

00173 3711 

00174 02*7 

00175 1052 

00176 «20£ 





00177 


0000 








1013 








ORG 10020 


/INITIAL SYMBOL, TABLE 


1014 


10020 


mm 


FPLIST, 


0 


/FP LITERAL BUCKET 


1013 


10021 


0000 


DPLIST, 


0 


/DP LITERAL BUCKET 


1016 


10022 


0023 


ALIST t 


. + 1 




1017 


10023 


0030 




• + 5 


/AODX 


1020 


10024 


0404 




0404? 3«00 






10025 


3000 








1021 


10026 


0014 




FPPSF5 




1022 


10027 


0110 




0110 




1023 


10030 


0035 




.+5 


/ALN 


1024 


10031 


1416 




I4i6; 0 






10032 


0000 
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HLIST 10377 

HOOKIN 03447 

IFNEGX 05656 

IFNZRX 05640 

IFPOSX 05663 

IFREFX 05670 

IFZRQX 05647 

ILIST 10405 

INDEX 00046 

INDRCT 00047 

INFP 02077 

INITAU 11200 

ISANAL 11433 

ISDOLR 01023 

ISDUT 02513 

ISLP08 1144fe? 

ISPLUS 02252 

ISQ 054ii 

JLIST 10451 

JSTONE 01343 

KLIST 10560 



LASTOP 00055 
LETTER 03655 
LINE 0620K 
LINENO 0006(* 
LINSIZ 00023 
LISTS* 0006I 
LIST* 11131 
LIT AOR 03116 
LITBAS K3164 
LITLUP 05126 
LITORX 01114 
LITPTR 03166 
LITRG1 0003? 
LITRG2 00031 
LITRL 0010* 
LLIST 10605 
LLPT 11422 
LOCTR1 00026 
L0CTR2 00027 
LOCK 03406 
LOOKUP 03400 
L00P6B 05604 
LPT 11445 
LPT2 1U46 
LP06 04317 
LSXZE 04242 
LSTOFX 05062 
LSTON 00062 
LSTONX 05061 
LTENP 00066 
LTMSG 00761 
LUKAME 01200 
LUPBKT 04673 
MAKLNK 01626 
MAXLIN 00066 
MLIST 10637 
MORFPL 03333 
MOVEOP 02147 
M0V2WQ 01314 
HSGOUN 04360 
HULOOP 02716 
MULT10 02302 
MXDTYP 02554 
M1000 00735 
NAME 1 00052 
NAHE2 00053 
NAHE3 00054 
N6ITS 00010 
NCHARS 0002? 
NCNT 03654 
NCTMP 00022 
NOONE 03644 
NEGLP 0037/ 
REJECT 04236 



NEWBLK 04477 
NE*FPL 03255 
NEfcL6L 0123d 
NEWLIT 03131 
NEwONE 0140fri 
NEWSYM 01331 
NEXT 00016 
NEXTST 00600 
NFILES 05352 
NLETR 0366b 
NLIST 10640 
NO ADO 02744 
NO AS* 0102fc 
N08LNK 04540 
NOCKLF 04254 
NODGT 03545 
NONAME 03651 
NOREAO 00674 
NORMLP 00315 
NOSY* 02447 
NOT A8 04215 
NQTEG 00626 
NOTFIl 05340 
NOTFPO 02357 
NOTING 0171b 
NOT IT 03071 
NOTNUM 02475 
NOTP0 03045 
NOTREF 05700 
NOTSAM 03443 
NOUNIT 02030 
NPTR 03653 
NSWTCH 03552 
NUM 03553 
NUMBER 03475 
NUHLUP 03501 
NUK1 03554 
NUM2 03555 
NWUSEO 03165 
NXTSKT 04753 
QADD 00400 
QChJ 00006 
OCTALX 05767 
OCTnUH 03533 
OCTOUT 01052 
ODDCHR 0073tf 
QODEVN 00760 
OKEXP 02444 
OLDFP 03353 
0LDN3 00004 
GLIST 10646 
OLOOP 01056 
ONE 02525 
QPCJHP 01352 



QPCOOfc 


00?U5 


0PCT8L 


01353 


QPt 


0631 13 


OPh 


00122 


OPL 


5*8121 


OPO 
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OPR ANL) 


02155 


0PR8R 


^ 2 6 2 


QPRBRS 


04^54 


ORGERK 


850 2 v 


ORGX 


P5012 


ORl 




QTE MP 


00085 


QUTf PL 


03363 


OUTSET 


80063 


QUTTXT 


05617 


QUTWRQ 


0440? 


QUTl^D 


0 1423 


0UT2W0 


01421 


QUT3*0 


01417 


QVER3 


01025 


OInTEMP 


04557 


01 


04472 


PAGE J 


05154 


PA6EN 


001 12 


PAGEnQ 


03162 


PAGEX 


05064 


PAGE^ 


01633 


PAGSIZ 


00007 


PAKLUP 


0362b 


PALI 


00577 


PANGRM 


00574 


PAR 1 


00576 


PASSNQ 


00056 


PC 


04244 


PCHR 


04245 


POPMR 


0000f? 


PDPDP 


00004 


PPP8MR 


0160^ 


PER2 


02221 


PFPLAC 


00573 


PFPICE 


00527 


PLIST 


10666 


PNEii 


00575 


POPO 


00357 


PRINTC 


0 420 <f' 


P R I w T 2 


05714 


PRHSG 


04352 


PRMLN 


0 2 0 fen (? 


PRNTST 


04522 


PRNT2 


05726 


PRS* 


02324 


PSEUOO 


01555 


PSUOQ 


00005 



PUKDEF 02437 
PUTVAL 013fcJfc 
PBLbUF »74(J!* 
P0LIT 021 lv 
PI 04147 
P2 05713 
P3 05714 
QLIST 10674 
RADIX 00^65 
RDBLOK 00675* 
RDDIAL 113«9lf 
ROLOOP 00643 
RDSYS 11273 
RETFPL 03242 
RETLIT 03125 
RETS YS 04131 
RLIST 10675 
SAKBLK 04514 
SAMFLD 05036 
SAMP AG 05053 
SBLOCK 00105 
SCSwT 00064 
SEMICL 0376* 
SETT AB 04212 
SETT YP 04732 
SEXP 02325 
SFUHGE 00106 
SHIFT 03556 
SIGNX 00066 
SI2PAG 00025 
SLIST 10746 
SOURCB 00016 
SOURCE 07001? 
SRCUNT 00666 
START 00622 
STAR20 00107 
STPRNT 04671* 
SWTOUT 00113 
SYMBOL 02424 
SYMTYP 02436 
SYM 04746 
SYM2 04741 
SYM3 04737 
SYSBUK 04143 
TABCNT 04241 
TEN 02321 
TEXTX 05600 
THSPAG 01627 
TLIST 11036 
TMP 00114 
TRY6LK 0134sf 
TRYEQU 01246 

TCTi TT «"l « f A ? 
I Ulki I V w 4 v r 

TSTLST 11431 



TTY 04311 

TYPE3 03355 

ULIST 11126 

UNDEF 02600 

UNIT 05243 

UNNOKH 02136 

USES 00014 

USEBLK 04127 

USETSL 0634? 

VERS 00003 

VLIST 11127 

WOPTR 00762 

WIDTH 04243 

WLIST 11130 

WQRD1 00041 

W0R02 00042 

WRBLOK 04456 

WRD 04556 

XB AD 00075 

XDOPR 02134 

XFGPN 02063 

XFPT8L 02067 

XINCR 00050 

XITEHP 01671 

XOPRND 00155 

XP AGE 03163 

X10 00010 

Xll 00011 

X12 00012 

X13 00013 

X14 00014 

X15 00015 

YLIST 11137 

ZLIST 11140 

ZRONOX 04016 
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Active parameter table format, C-7 
Arithmetic operators, 4 
Assembler , 

exiting, 13 

loading, 13 

starting, 13 

using, 13 
Assembly of FPPASM, 20 



BASE pseudo-op, 9, 12 



CHAIN pseudo-op, 9 
Character set summary, C-l 
Codes, 4 

Coding line length, 1 
Comma use in statements, 2 
Comments , 4 
Conditional jumps, C-5 
CTRL/D, 13 
CTRL/L, 13 



Data reference instructions, C-4 
Data specification, 8 
DECIMAL, radix pseudo-op, 3, 9 
Description, internal, of FPP 

Assembler, 16 
Double precision expressions, 3 



IFNEG pseudo-op, 10 
IFNZRO pseudo-op, 10 
IFPOS pseudo-op, 10 
IFREF pseudo-op, 11 
IFZERO pseudo-op, 10 
Illegal expression symbols, 2 
Index expression, 5 
Index register format, 6 
Index register modifiers, C-4 
Indirect address linkage, 8 
Integer expressions, 3 
Internal description, FPP 

Assembler, 16 
IOT microinstructions, C-3 



Left parenthesis usage, 6,7 
Links, 8 

LISTOF pseudo-op, 10 

LISTON pseudo-op, 10 
Literals, 6, 7 

LITORG pseudo-op, 7, 10 

Logical operators, 4 



Major subroutines, 17 
Memory reference, 4, 5, 12 

FPP-8, 5 

PDP-8, 5 
Multiple spaces or tabs, 2 



EJECT pseudo-op, 10 

END pseudo-op, 9 

Equate 1 ( = ) pseudo-op, 8, 16 

Error messages, 13, A-l 

Example FPP instructions, 14 

Exiting from the Assembler, 13 

Expressions, 2 

integer, 3 

symbols, 2 



Floating point 

expressions, 3 

operands, 12 

pseudo-ops, C-6 
Flow chart, D-l through D-4 
Format 

active parameter table, C-7 

index register, 6 

memory reference, 5 

source program, 1 
FPPASM, Assembly of, 20 
Function of PDP-AC bits with 

FPCOM IOT, C-6 

Hardware requirements, 1 



Number of symbols, maximum, B-l 



OCTAL, radix pseudo-op, 3, 9 
Op-code handlers, 17 
Operates, C-5 
Operators 

arithmetic, 4 

FPP, 6 

logical, 4 

summary, C-2 
ORG pseudo-op, 10, 12 
Overflow, symbol table, B-l 



PAGE pseudo-op, 9 

parenthesis use, .6, 7 

PDP AC after read status IOT's 

FPIST or FPRST, C-7 
PDP-8 memory reference, 5 
Period ( . ) in expressions, 2 
Pointer moves, C-6 
Program labels, 16 
Pseudo-operations, 8 

summary, C-3 



X-l 



Radix pseudo-ops (OCTAL and 

DECIMAL) , 3,9 
Referencing memory/ 12 



Semicolon as terminator, 1 
Source program foimat, 1 
Space usage in statement, 2 
Square bracket usage, 6, 7 
Statement syntax, 1 
Subroutines, major, 17, 18 
Switches and variables, 19, 20 
Symbols, C-4 

Symbol table overflow, B-l 



Tab usage in statement, 2 
Tags, 2 

Terminator, semicolon used as, 1 
TEXT pseudo-op, 9 
Truncation, 1, 3 



Using the Assembler, 13 



Variables and switches, 19, 20 
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HOW TO OBT * IN SOFTWARE INFORMATION 



Announcements for new and revised software, as well as programming notes, 
software problems, and documentation corrections are published by Software 
Information Service in the following newsletters. 

Digital Software News for the PDP-8 & PDP-12 

Digital Software News for the PDP-11 

Digital Software News for the PDP-9/15 Family 

These newsletters contain information applicable to software available from 
Digital's Program Library, Articles in Digital Software News update the 
cumulative Software Performance Summary which is contained in each basic 
kit of system software for new computers. To assure that the monthly Digital 
Software News is sent to the appropriate software contact at your installation, 
please check with the Software Specialist or Sales Engineer at your nearest 
Digital office. 

Questions or problems concerning Digital's Software should be reported to 
the Software Specialist. In cases where no Software Specialist is available, 
please send a Software Performance Report form with details of the problem to: 

Software Information Service 
Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 

These forms which are provided in the software kit should be fully filled out 
and accompanied by teletype output as well as listings or tapes of the user 
program to facilitate a complete investigation. An answer will be sent to the 
individual and appropriate topics of general interest will be printed in the 
newsletter. 

Orders for new and revised software and manuals, additional Software Per- 
formance Report forms, and software price lists should be directed to the 
nearest Digital Field office or representative. U.S.A. customers may order 
directly from the Prc? rr >m Library in Maynard. When ordering, include the 
code number and a brief description of the software requested. 

Digital Equipment Computer Users Society (DECUS) maintains a user library 
and publishes a catalog of programs as well as the DECUSCOPE magazine 
for its members and non-members who request it. For further information 
please write to: 

DECUS 

Digital Equipment Corporation 
146 Main Street, Bldg. 3-5 
Maynard, Massachusetts 01754 
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Digital Equipment Corporation maintains a continuous effort to improve the quality and usefulness 
of its publications. To do this effectively we need user feedback — your critical evaluation of 
this manual . 

Please comment on this manual's completeness, accuracy, organization, usability and read- 
ability. 
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How can this manual be improved? 
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